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PREFACE 


Three  manuals  have  been  written  for  the  FORECAST  90  Project,  a  contract 
jointly  funded  by  the  Army  and  the  Defense  Advanced  Research  Projects 
Agency. 


•  "A  Guide  to  Network  Construction  and  Utilization" 

•  "User's  Manual  for  the  FORECAST  90  Computer  Programs" 

•  "Programmer's  Manual  for  the  FORECAST  90  Computer  Programs" 

These  manuals  show  how  to  construct  and  use  networks,  how  to  use  the  com¬ 
puter  programs  written  for  the  project,  and  how  to  maintain  the  FORECAST 
90  computer  programs. 

A  large  number  of  individuals  have  contributed  significantly  to  the  FORECAST 
90  Project.  Special  mention  must  be  given  to  Colonel  John  G.  Pappageorge, 
the  project  monitor  at  the  Strategic  Studies  Institute,  who  formulated  the 
initial  concept  of  FORECAST  90  and  followed  it  through  the  contract  phase 
with  uncommon  dedication,  insight,  and  patience.  The  entire  research 
effort  is  appreciably  better  as  a  result  of  his  many  comments,  criticisms, 
and  suggestions.  Colonel  Joseph  Pizzi,  the  Director  of  the  Strategic 
Studies  Institute  and  Chairman  of  the  Study  Advisory  Group  (SAG),  provided 
assistance  and  guidance  at  critical  points  in  the  project.  Members  of 
and  observers  to  the  SAG  participated  heavily  in  the  research,  often 
raising  fundamental  questions  about  the  project,  and  always  contributing 
to  a  better  product.  Captain  Daryl  Steiner  and  Lieutenant  Ron  Parker  of 
the  ADP  Support  Group  at  Carlisle  Barracks  spent  many  long  hours  unravel¬ 
ing  the  undocumented  intricacies  of  the  U. S.  Army  War  College  computer 
system. 

CACI's  support  staff  edited  and  typed  draft  after  draft  of  the  three  man¬ 
uals  with  unfailing  good  humor.  Particular  thanks  are  due  to  Carol  Franco, 
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who  converted  dangling  participles  and  split  infinitives  into  more  read¬ 
able  prose,  and  Sharon  O'Rourke,  who  always  found  some  new  way  to  juggle 
work  loads  so  that  one  more  part  of  the  three  manuals  could  be  completed 
Ann  Yamat  cheerfully  typed  most  of  the  drafts,  with  considerable  assis¬ 
tance  at  critical  points  from  Nancy  Streeter.  We  owe  a  substantial  debt 
of  gratitude  to  each  of  these  individuals. 


INTRODUCTION 


CACI,  Inc.,  has  written  and  placed  52  networks  in  computer  storage  at  the 
U.S.  Army  War  College  (USAWC)  as  part  of  the  Strategic  Studies  Institute's 
FORECAST  90  effort.  This  manual  presents  a  brief  overview  of  the  structure 
and  coding  of  the  52  FORECAST  90  networks,  (which  are  described  in  greater 
detail  in  "A  Guide  to  Network  Construction  and  Utilization"),  and  provides 

documentation  for  the  FORECAST  90  computer  programs. 

- .... 

WHAT  ARE  THE  FORECAST  90  NETWORKS? 


The  52  FORECAST  90  networks  are  a  way  of  looking  at  the  subsequents,  or 
downstream  effects,  of  an  action  that  might  occur  today.  Thus,  they 
provide  a  means  to  assess  the  implications  of  various  policy  options  that 
might  be  taken  in  response  to  an  event  that  is  significant  enough  to  affect 
existing  relationships  between  countries.  These  disruptive  events  are 
called  "catalytic  events"  in  the  FORECAST  90  system,  and  each  FORECAST 
90  network  is  built  on  the  occurrence  of  a  specific  catalytic  event. 

Figure  1  presents  an  example  of  the  structure  of  the  FORECAST  90  networks. 
Each  network  fits  this  form  because  each  is  built  on  a  trend,  a  determin¬ 
ing  factor,  a  catalytic  event,  five  affected  activities,  one  or  more 
first-,  second-,  and  third-order  effects,  and  a  series  of  decisional  out¬ 
comes.  The  nets  are  developed  to  examine  a  catalytic  event  on  a  major 
ongoing  trend  in  world  affairs  (e.g.,  detente)  for  five  affected  activities- 
U.S./USSR  relations,  U.S. /PRC  relations,  U. S. /Japanese  relations,  U.S./ 
Western  European  relations,  and  U.S. /other  country  relations.  The  impact 
of  the  catalytic  event  on  the  trend  in  each  of  these  five  affected  activi¬ 
ties  is  filtered  through  one  or  more  first-,  second-,  and  third-order 
effects  (that  is,  attempts  tc  develop  plausible  responses  that  the  major 
countries  involved  in  the  catalytic  event  or  affected  by  it  might  attempt 
to  take).  The  impact  of  the  entire  sequence  displayed  in  Figure  1  is 
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Figure  1.  The  Structure  o£  the  FORECAST  90  Networks. 
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then  summarized  in  the  decisional  outcome  column  where  the  trend  under 
examination  can  be  increased,  decreased,  or  maintained. 

Five  different  trend  areas — economic,  military,  political,  socio-economic 
and  technological — have  been  used  to  construct  the  networks.  Regardless 
of  the  trend  involved,  all  networks  have  the  same  structure. 

CODING  THE  NETWORKS 

Each  distinct  point  in  a  network  is  called  a  node ,  and  each  node  is  coded 
with  a  unique  alphabetic  and  numeric  combination.  While  the  structure  of 
the  networks  and  the  structure  of  the  codes  are  consistent  across  all  of 
the  networks,  each  node  in  each  network  is  uniquely  numbered.  Figure  2 
attempts  to  illustrate  these  points  by  displaying  the  structure  of  the 
code  for  the  nodes  for  a  hypothetical  political  tree. 

The  code  for  each  network  begins  with  a  letter  designating  whether  it  is 
an  economic  (E) ,  military  (M) ,  political  (P) ,  socio-pyschological  (S) ,  or 
technological  (T)  tree.  Once  the  subject  area  of  the  network  is  designated, 
two  digits  are  added  to  the  code  for  the  determining  factor.  Two 
additional  digits  are  added  for  the  catalytic  event.  One  digit  each  is 
added  for  the  affected  activities,  the  first-,  second-,  and  third-order 
effects.  The  network  code  ends  with  a  unique  one-letter  and  three-digit 
designation  for  each  decisional  outcome.  Using  the  information  given  in 
Figure  2,  the  node  numbers  for  each  point  in  the  network  can  be  written 
as  in  Table  1. 

Three  characteristics  of  the  coding  system  should  be  noted.  First,  each 
network  is  stored  in  the  USAWC  computer  system  under  the  number  of  its 
catalytic  event.  Hence,  to  reference  a  computer- stored  network,  the  user 
must  know  the  number  of  its  catalytic  event.  For  easy  reference,  the 
network  number  and  the  catalytic  event  for  each  network  are  listed,  by 
category  of  subject  matter,  in  Appendix  I  of  the  "User's  Manual  for  the 
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TABLE  1 

Sample  Code  Designations 

Level  of  the  Tree 


Trend 

Determining  Factors 
Catalytic  Event 
Affected  Activities 
First-order  Effects 

Second-order  Effects 

Third-order  Effects 

Decisional  Outcome 

FORECAST  90  Computer  Programs."'1  Thus,  should  any  potential  user  of  the 
FORECAST  90  nets  ever  need  to  know  the  number  of  a  specific  network. 
Appendix  I  of  that  manual  gives  the  information. 

Second,  each  network  employs  a  standard  referencing  procedure  for  the 
five  affected  activities  on  which  the  networks  are  focused.  These  codes, 
as  noted  in  Figure  2,  are  standardized  as  follows: 

•  U.S./USSR  relations  =  1 

•  U.S./PRC  relations  =  2 

•  U, S. /Japanese  relations  =  3 

0  U.S. /Western  Europe  relations  =  4 

•  U.S. /other  country  relations  =  5 


Full  Node  Designation 

P01. 

P0101. 

P010101. 

P0101011. 

P01010111. 

P01010112. 

P010101111. 

P010101112. 

poioioiim. 

P0101011112. 
P0101011111 . H001 
POlOlOlllll. H002 


See  Chapter  3  of  "A  Guide  to  Network  Construction  and  Utilization"  for 
details  on  the  assignment  of  these  numbers. 
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Regardless  of  the  network  that  is  being  used,  the  code  for  the  section 
of  the  tree  on  relations  between  the  United  States  and  the  Soviet  Union 
will  always  end  in  1. 


Third,  the  node  numbers  are  unique  to  each  node  and  must  be  treated  as 
such.  Hence,  if  any  digit  in  the  node  number  is  transposed  or  omitted, 
the  user  will  not  obtain  the  node  that  is  being  sought.  Moreover,  if 
the  period — as  demonstrated  in  Table  1 — is  omitted,  the  user  will  not 
receive  the  node  that  is  being  sought.  It  is  extremely  important  to 
enter  the  node  exactly  since  any  variation  will  create  errors. 

EQUIVALENCE  CODING 

In  addition  to  a  code  for  each  node  in  the  networks,  a  second  code  was 
developed  for  each  of  the  first-,  second-,  and  third-order  effects  in 
each  network.  A  similar  code  was  developed  for  each  catalytic  event  that 
has  been  networked.  The  purpose  of  these  codes  is  to  help  find  cross-over 
points  to  permit  the  user  to  cross-over  from  one  network  to  another  when 
occurrences  in  one  of  the  networks  have  implications  for  occurrences  in 
a  second  network. 

In  developing  the  equivalence  code,  seven  pieces  of  information  were  coded 
for  the  contents  of  the  node  to  attempt  to  summarize  the  occurrences  there. 

•  The  first  actor  (the  primary  initiator  of  the  actions 
described  in  the  node) . 

•  The  second  actor  (the  secondary  initiator  of  the 
actions  described  in  the  node) . 

•  The  action  taken  in  the  node  (activities  described 
in  this  specific  node). 

•  The  first  target  (the  country  toward  which  the  action 
in  the  node  is  primarily  directed). 

•  The  second  target  (the  country  toward  which  the  action 
in  the  node  is  secondarily  directed). 
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•  Geographic  region  (wliere  the  action  described  in 
the  node  occurred). 

•  Substantive  topic  (subject  about  which  the  exchange 
described  in  the  node  occurred). 

This  information  has  been  coded  for  each  first-,  second-,  and  third-order 
effect  in  each  network.  The  codes  used  can  be  found  in  Appendices  III 

2 

through  VII  of  the  "User's  Manual  for  the  FORECAST  90  Computer  Programs." 

Once  the  nodes  were  coded  for  these  seven  pieces  of  information,  equival¬ 
ence  was  sought  to  find  nodes  that  had  the  same  actor,  action,  target, 
geographic  region,  and  substantive  topic.  Once  commonly  structured  nodes 
were  found,  they  formed  cross-over  points  that  were  used  to  link  together 
different  networks.  Figure  3  displays  two  unrelated  networks  that  have 
commonly  structured  nodes  (designated  by  letters).  Figure  4  shows  the 
use  of  the  cross-over  points  to  join — or  "integrate" — the  two  separate 
networks. 

All  of  the  52  networks  currently  available  for  FORECAST  90  have  been 
examined  for  cross-over  points  and  integrated.  Where  a  node  in  one  network 
crosses  to  another  node  in  a  second  network,  a  particular  statement — 
called  a  GO  TO  statement — is  used  to  designate  the  occurrence.  Thus, 
when  the  user  prints  a  part  of  a  network  on  the  computer  he  may  see  GO  TO 
statements  at  one  or  more  nodes  that  are  followed  by  a  number.  The  number 
given  refers  to  the  location  in  the  same  tree  or  in  another  tree  to  which 
the  first  node  is  to  branch.  Additionally,  at  the  end  of  each  printing 
of  a  network  section,  the  user  can  obtain  a  list  of  the  GO  TO  statements 
encountered  in  that  printing.  This  list  of  statements  shows  where  the 
cross-overs  have  occurred  and  indicates  what  trees  should  be  examined  to 
print  the  nodes  to  which  the  cross-overs  have  been  made. 


A  more  detailed  discussion  of  network  integration  is  found  in  Chapter  4  of 
"A  Guide  to  Network  Construction  and  Utilization." 
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GENERAL  INFORMATION  ON  THE  FORECAST  90  PROGRAMS 


Four  computer  programs  have  been  developed  for  use  with  the  FORECAST  90 
networks  and  related  data  files.  These  programs  are  written  in  FORTRAN 
and,  except  for  NET2,  are  Interactive.  Use  of  the  programs  is  described 
in  the  companion  "User's  Manual  for  the  FORECAST  90  Computer  Programs. ” 

The  program  documentation  given  in  this  manual  will  include  a  general 
statement  on  the  programming  philosophy,  a  discussion  of  the  structure 
of  the  required  data  file,  and  description  of  each  program  (including 
operational-level  flow  diagrams,  definitions  of  the  variables  and  annotated 
program  listings  in  the  Appendices). 

Table  2  presents  a  brief  summary  of  information  on  the  FORECAST  90  programs. 


10 


TABLE  2 

Summary  of  FORECAST  90  Programs 


G 

44 

fa 

O 

0) 

Vi 

• 

1 

G 

Vi 

• 

G 

O 

O 

VI 

P 

1 

0) 

0) 

| 

G 

G 

G 

G 

G 

JC 

X 

a) 

0) 

cx 

H 

O 

B 

Vi 

O 

43 

« 

H 

1 

0 

G 

44 

U 

g 

j3 

43 

Vi 

V 

3 

C 

H 

G 

Vi 

G 

VI 

O 

(0 

G 

VI 

G 

H 

CO 

tv 

CX 

O 

vi 

O 

H 

tv 

•  1 

G 

G 

G 

W 

g 

JG 

G 

44 

O 

X 

O 

G  G 

G 

vi 

G 

G 

o 

G 

G 

v* 

g 

C 

G 

G 

3 

U 

• 

O 

44 

G 

*>4 

1  v4 

CO 

G 

VI 

c 

C 

t-* 

• 

•rH 

0 

O 

u 

*H 

Vi 

G 

in 

O 

•H 

1 

•G 

43 

G 

G 

• 

G 

G 

■H 

o 

VI 

G 

Vt 

G 

*H 

(V 

1  CO 

a 

3 

X 

G 

r-l 

CO 

CO 

CO 

U 

VI 

o 

>* 

CO 

O 

VI 

t4 

G 

CO 

VI 

G 

•H 

G 

c 

co 

G 

o 

to 

m 

CO 

G 

Vi 

C 

3 

rH 

V) 

G 

G 

G 

tV 

r~4 

•H 

G 

G 

G 

C*4 

E 

Vi 

G 

0) 

*H 

VI 

VI 

B 

V 

1  G 

* 

X 

*r4 

<0 

o 

O 

VI 

#— 1 

** 

c 

K 

4: 

G 

G 

G 

P 

G 

1  O 

P 

43 

Vi 

VI 

U 

t*4 

VI 

•r4 

c 

G 

t4 

i 

o 

g 

£ 

VI 

G 

C 

G 

•H 

O 

•  *rt 

O 

44 

G 

3 

c 

VI 

G 

44 

<* 

• 

44 

H 

3 

O 

TO 

44 

gj 

Xl 

44 

G 

•> 

CX 

o 

CO 

H 

in 

4* 

c 

•H 

CO 

c 

X 

G 

CO 

a 

3 

G 

G 

G 

VI 

G 

Vi 

u 

G 

H 

0) 

C4 

Vi 

M 

44 

0 

VI 

O 

Vi 

G 

Y-4 

C/5 

G 

O 

G 

M 

o 

60 

cO 

H 

m 

G 

O 

CO 

a 

G 

cx 

Vi 

P 

G 

43 

G 

5 

G 

•H 

60 

G 

? 

0) 

g 

G 

G 

G 

O 

G 

G 

O 

G 

vi 

G 

Vi 

i-4 

CO 

Vi 

G 

g 

g 

v) 

G 

G 

G 

O 

G 

O 

G 

G 

44 

3 

P 

0) 

-H 

G 

o 

•H 

V* 

3 

0) 

O 

G 

•r4 

•r4 

44 

G 

P 

G 

O 

V 

1  G 

r*4 

O 

44 

.£ 

25 

4-1 

G 

44 

CO 

<0 

VI 

G 

2 

W 

> 

VI 

O 

G 

Vi 

25 

H 

1  M 

a 

3 

O 

VI 

g  i 

x  u 

VI  G 

e 

P 

O  G 
44  »H 
60 
0)  G 

•H  *rl 
*ri  CO 
44 

G 

CO 

VI  4-1 


CO  VI 

G 
P  0) 
O  tH 
4-4  CO 
> 

0)  *H 
*-»  3 
•H  a* 
4-i  a> 


CO 

u 

CO 


rH  X 
co  vi 


4J  co 


g 

G 

O  • 
P 

G  G 


O  Q> 

VI  43 
VI 
4J 

a  >s 

0)  43 


4-1  ^ 
O  ^ 


to 

3 

V> 

cfl 


G  G 
G  u 
(0  co 


0) 
u  CO 
cx 

0) 

CO  43 


a) 

5^  « 


G 

’O  £•  • 

■o  AH 

u 

G 

4-1  <U 

u  to  -a 

a)  p  d 

G  P 

<#  T»  M 

«  ft  >  0> 

N  >  -H 

3 

»  3 

>  i-t  -H 

ft  u 

43  VI 

je  w 

-C  3 

M  0)  T3 

O  O  • 

0  to  0 

U  (fl  O'  ‘ri 

ft)  fJ  <W 

P  3  4^ 

Vi  a»  s 

U  tu  <u  u 

S  Vi 

GPP 

<9  Vi 

to  T3  0) 

|H  O 

G  vi  O 

0>  0  u 

<u  0  to  0. 

3  u 

C/5  CO  3 

V)  c  « 

w  a  t«  to 

to  d  to 

i  \ 

i 

'  '4 


1 


pletion,  last  date  of 


NET1 :  A  NETWORK  DISPLAY  PROGRAM 


GENERAL  PROGRAMMING  PHILOSOPHY 


Figure  5,  which  shows  a  very  simple  tree,  indicates  the  way  in  which  the 
terms  "node"  and  "level"  will  be  used.  It  is  seen  there  that  a  node  is 
a  branch  point  in  a  "tree."  Each  tree  has  8  levels.  The  first  three 
levels  have  one  node  each;  level  4  has  five  nodes;  the  number  of  nodes 
in  the  higher  levels  may  vary  from  tree  to  tree,  but  the  number  of  nodes 
in  levels  7  and  8  is  always  the  same  within  a  single  tree. 


Each  node  is  identified  by  a  7-character  node  designation.  The  first 
character  of  the  node  designation  is  always  one  of  the  letters: 

E  (economic),  P  (political),  M  (military),  S  (socio-psychological) ,  or 
T  (technological).  Examples  are  shown  below: 


Level 


Full  Node  Designation 


Unique  Part  of  the  Node 
_ Designation _ 


1 

P01. 

_a 

2 

P0101. 

- 

3 

P010101. 

- 

4 

P0101011. 

1 

5 

P01010111. 

11 

P01010112. 

12 

6 

P010101111. 

111 

P010101121. 

121 

7 

P0101011111. 

1111 

P0101011211. 

1211 

8 

P0101011111 . H001 

1111(1) 

P0101011211.H002 

1211(1) 

3 

Since  there  is  only  one  node  in  each  of 
unique  designation  is  necessary. 

the  first 

b  The  last  1 

is  added  by  the  program. 
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PARENT  OF  LEVEL  ’K’  CHILDREN  OF 


Figure  5.  Schematic  Diagram  of  a  Very  Simple  Decision  Tree 


Because  of  the  structural  similarity  of  these  decision  trees  to  "family" 
trees,  it  is  convenient  to  refer  to  nodes  in  terms  of  family  relationships. 
Thus,  the  nodes  in  level  K+l  are  called  the  "Children"  of  the  nodes  in 
level  K;  nodes  in  level  K-l  are  the  "Parents”  of  level  K  nodes;  and  nodes 
in  level  K-2  are  the  "Grandparents." 

Basic  program  operation  depends  on  the  fact  that  nodes  may  be  referred  to: 

•  By  the  node  designation  discussed  above,  and 

•  By  a  node  index  giving  the  order  of  the  node 
in  the  input  file. 

Efficient  searching  through  the  tree  is  permitted  by  the  following  relation¬ 
ships  among  the  designations  of  the  nodes  in  adjoining  levels: 

Parent  Node  =  Child  Node  /  10  (1) 

Child  Node  =  Parent  Node  x  10  +  j  (2) 
where  j  *  1,...  number  of  branches  at  Parent  Node. 

Equation  (1)  depends  on  the  fact  that,  in  FORTRAN,  integer  division  loses 
any  non-integer  part.  For  example  (221/10)  =  (222/10)  =  (223/10)  =  22. 

Thus,  all  Brother  Nodes  produce  the  same  Parent  Node. 

The  node  "index"  is  used  as  the  index  of  arrays  in  which  node  attributes 
are  stored — for  example,  NBR  (number  of  branches  at  the  Ith  node),  NOD 
(designation  of  the  Ith  node),  LIN  (number  of  lines  in  the  Ith  node's 
message).  Thus,  the  number  of  branches  at  the  Ith  node  is  given  by 
NBR  (I). 

File  Structure 

Information  for  each  of  the  52  networks  is  organized  by  node  in  a  separate 
file  for  each.  All  data  for  a  single  node  are  stored  on  consecutive  lines 


ill  the  file.  The  following  Information  is  retained  in  the  file  for  each 
node: 


•  Node  designation  -  a  set  of  alpha-numeric  characters 
(up  to  16)  that  identify  both  the  tree  and  the  node 
within  the  tree. 

•  Node  level  -  the  location  in  the  network  for  a 
specific  node. 

•  Number  of  branches  at  the  node. 

•  Lines  of  text  -  each  line  is  limited  to  32  characters, 
but  there  is  no  limit  to  the  number  of  lines  per  node 
(subject  to  the  general  limitation  of  1500  lines  for 
the  entire  tree). 

•  GO  TO  lines  -  pointers  to  related  nodes. 


A  listing  of  a  few  lines  from  one  of  the  tree  files  is  shown  in  Table  3. 
This  file  has  the  following  format: 


Type  of  line 


Columns  Variables 


Node 

Designation 

Line 

Text  Line 


GO  TO  Line 


1 

3 

2-18 

1 


2-33 

1 


Node  level 
Number  of  branches 
Node  designation 

Blank  if  an  additional  line  of  text 
or  a  GO  TO  line  follows:  /  if  this 
is  the  last  line  and  there  are  no 
GO  TO  lines. 

Text 

Line  identifier:  Must  be  *.  Any 
text:  for  example,  *G0  TO  P010204121. 


PROGRAM  DESCRIPTION 


NETl  is  made  up  of  a  main  control  program  and  five  major  subroutines: 
SF,  SB,  SR,  CHILD,  and  PRINT.  Flow  diagrams  showing  the  operations 
carried  out  by  these  programs  are  given  in  Figures  6-11. 


15 


Print 

error 

messa 


- ... -■ 

C  ” 

ER  ^ 

.  .  \ 

t 

Set 

coun 

to  0 

node 

ter 

i 

.  - r 

RETURN 

v  J 


Set  8th 


node ; nod 
counter 


Is  initial 
node  level 
"LS"  =  ? 


Set  7th 


node; nod 
counter 


Compute 
&  set  8tl 
level 
nodes 


Call  subroutine 
"CHILD"  to  set 
nodes  through 
level  7 


^XX J  XX=  Statement  No.  (See  Program  Listing,  Appendix) 

NODE  -  Initial  Node  Designation 
LS  -  Initial  Node  Level 


Figure  7.  NET1:  Subroutine  SF  (LLX,  NEV,  NODE,  LS) 


Consider  next  node  stored 
for  level  "LI" 


Have 

/all  nodes  in 
•Jevel  LI  been 
considered-' 


RETURN 


Call  subroutine  "FIND"  to 
get  index  of  L 1-level  Node 


Write 


message 


Error 
in  index 


Store  all  "Children"  of 
this  node  for  level  "L2" 


© 


XX  =  Statement  No.  (See  Program  Listing,  Appendix) 


Figure  10.  NET1:  Subroutine  CHILD 


TABLE  3 

Sample  of  the  NET1  Input:  A  Portion  of 


71T010201432. 

LDC'S  REJECT  US  OFFER  FOR 
TECHNICAL  ASSISTANCE  IN 
FAVOR  OF  EUROPEAN  TIES. 

*C0  TO  S0105021311. 

*GO  TO  S010502412 . 
71T0102014321. 

EUROPE  ACCEPTS  US  PRESENCE  IN 
LDC'S 

*GO  TO  E01040142. 
71T0102014322. 

EUROPE  REJECTS  US  PRESENCE  IN 
LDC'S  COMPETES  WITH  US  FOR 
LDC  MARKETS. 

*GO  TO  T01020U31. 
71T0102014331. 

/NO  THIRD  ORDER  EFFECT. 
71T0102014341. 

/NO  THIRD  ORDER  EFFECT 
71T0102015111. 

/NO  THIRD  ORDER  EFFECT. 
71T0102015121 . 

LDC'S  HOLD  RAW  MATERIALS  TO 
BARTER  FOR  TECHNOLOGY 
TRANSFER  PROGRAMS. 

*GO  TO  T01020152. 
71T0102015122. 

LDC’S  REJECT  TECHNOLOGY 
FOR  MORE  CONVENTIONAL 
TYPES  OF  AID"  POLITICAL, 
/ECONOMIC,  MILITARY. 
71T0102015211 . 

US  FORCED  TO  LOOK  ELSE¬ 
WHERE  FOR  RAW  MATERIALS 
STOPPED  IN  RESPONSE  TO  US 
/AID  CUTOFF. 

71T0102015221. 

LDC'S  BREAK  AWAY  FROM 
EUROPE-SELL  RAW 
MATERIALS  TO  HIGHEST 
/TECHNOLOGICAL  BIDDER. 
80T0102014223.H041 
(-)  RATE  OF  CHANGE  OF  TECH¬ 
NOLOGY  DECREASED .  HIGH 
TECHNOLOGY  FIRMS  RELYING 
ON  EXPORTS  ARE  FORCED  OUT  OF 
/BUSINESS. 


One  of  the  Tree  Files 

Node  designation  line 
Text  line 

GO  TO  line 
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In  addition  to  these  programs,  two  minor  utility  subroutines,  FIND 
and  LEVEL,  are  included  to  determine  the  index  and  level,  respectively, 
for  a  given  node.  Definitions  of  the  variables  are  given  in  Table  4. 


TABLE  4 

Definitions  of  the  NET1  Variables 


Variable  Name 

Arrays 

NBR(I) 

NOD (I) 

LOC(I) 

LIN(I) 

NOF(I) 

GTO(I) 

MES(L.K) 

ISET(I) 

NEV(L) 

NST(L) 

LLX(L.I) 

LL 

II 

BUFFER 


Single  Variables 

WORDS 

MAXLN 

NNOD 

NLEV 

NLLX 

MMES 


Definition 


Number  of  branches  at  the  Ith  node. 

Designation  of  the  Ith  node. 

Location  in  the  message  file  of  the  first 
line  of  the  message  for  the  Ith  node 

Number  of  lines  in  the  1th  node's  message 

Final  part  of  the  node  designation 

Number  of  GO  TO  lines  for  this  node 

Text  file  (L=l,8  -  Text  / L=9  -  tag  for  GO  TO  line 

Temporary  storage  for  nodes  with  GO  TO  lines 

Number  of  nodes  in  the  Lth  level  selected  for 
printing 

Total  number  of  nodes  in  the  Lth  level 

Temporary  storage  for  the  designations  of  level  L 
nodes  selected  for  printing 

Powers  of  10  used  in  identifying  node  levels 

Temporary  storage  for  one  message  line  during 
the  input  phase 

Required  by  the  computer  system  for  subroutine 
ATTACH 


Number  of  (computer)  words  in  a  single  message  line 

Maximum  number  of  lines  in  the  message  for  any  node 
in  a  given  tree  (computed  by  the  program) 

Maximum  number  of  nodes  in  any  single  tree 

Number  of  levels  in  a  tree  (currently  set  at  8) 

Maximum  number  of  nodes  per  level  that  could  be 
selected  during  any  single  search 

Maximum  number  of  lines  for  all  messages  for  a 
pingle  tree 
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NET2:  A  BATCH  MODE  EQUIVALENCE  SEARCH  PROGRAM 


PROGRAMMING  PHILOSOPHY 

The  purpose  of  this  batch  program  is  to  identify  nodes  with  similar 
characteristics  across  the  entire  set  of  trees.  The  input  file  for  NET2 
is  the  Node  Information  File  (NIF)  which  contains  the  following  informa¬ 
tion  for  each  node: 

(1)  Node  designation 

(2)  Actor 

(3)  Event 

(4)  Target 

(5)  JCS  geographic  region 

(6)  Substantive  topic 

All  nodes  for  which  variables  (2)-(6)  are  the  same  are  considered  to 
belong  to  the  same  "group."  As  each  record  is  read,  the  group  to  which 
the  node  belongs  is  identified  and  stored  with  the  other  node  attributes. 
This  group  identification  is  carried  out  by  the  following  procedure: 

Group  1  is  defined  by  the  attributes  of  the  first  node  in  the  data  file. 

If  the  second  node  is  equivalent  to  Node  1,  it  is  placed  in  Group  1;  other¬ 
wise,  its  attributes  define  Group  2.  If  the  third  node  is  equivalent 
to  either  of  the  first  two  nodes,  it  is  placed  in  the  first  or  second 
group;  otherwise,  its  attributes  define  Group  3. 

When  all  of  the  nodes  have  been  read,  they  are  printed  by  groups.  A  pass 
is  made  through  the  list  of  nodes,  and  the  nodes  whose  designations  start 
with  E  are  selected.  Each  E  node  serves  as  a  "key"  node  (that  is,  it  is 


printed  at  the  left  side  of  the  page)  and  the  designations  of  all  nodes 
equivalent  to  it  are  printed  to  the  right.  Thus,  each  equivalent  group 
is  printed  once  for  each  member  of  the  group.  When  all  E  nodes  have  been 
used  as  key  nodes,  the  process  is  repeated  with  all  M  nodes,  then  P,  S, 
and  T  nodes.  (The  order  is  controlled  by  the  order  of  the  values  of  the 
control  variable,  KON — set  in  a  data  statement.  See  the  program  listing 
in  Appendix  II.) 

FILE  STRUCTURE 


Table  5  shows  a  listing  of  a  few  lines  of  the  Node  Information  File. 

3 

This  file  has  the  following  format. 


Columns  Variables 


1-11  Node  designation 

13-15  First  Actor  code  (what  country  initiated  the  action) 

16-18  Second  Actor  code 

19-21  Action  node  (what  the  action  was) 

22-24  First  Target  code  (toward  what  country  or  group  was  the 
action  directed) 

25-27  Second  Target  code 

28  Region  code  (the  geographic  location  of  the  action) 

29-31  Substantive  topic  code  (the  subject  topic  of  the 

exchange) . 


PROGRAM  DESCRIPTION 


NET2  consists  of  a  main  control  program  only.  The  flow  diagram  in 
Figure  12  indicates  the  operations  carried  out  by  the  program.  Defini¬ 
tions  of  the  principal  variables  are  given  in  Table  6. 


In  the  present  program  only  parts  of  a  larger  data  file  are  read.  Thus, 
the  actual  data  file  contains  information  on  two  actors,  two  targets,  and 
a  three-digit  code  for  action  and  substantive  topic.  Only  one  actor,  one 
target,  and  two  digits  of  the  action  and  substantive  topic  codes  are 
currently  used  in  the  search. 
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TABLE  5 


Sample  Listing  of  the  Node  Information  File  (NIF) 


F0101 
PO 101 
P0 101 
PO  1 0 1 
F0 101 
PO  101 
F0 101 
P0 101 
P0 101 
P0 101 
FO 101 
PO  1 0 1 
P010 1 
P0101 
POiOl 
F0101 
FOIOl 
P0101 
P010I 
FOIOl 
F0101 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 
FOIOl 


013221  9970000 1 17400000133 
013221  79000001 1 9970000 1 33 
013222  9970002337900000 1 33 
013222  7900002339970000133 
013222  7900000619950000130 
013231  7900000619950000130 
013232  7900002219970000138 
013311  7900002219970000100 
013312  7900000329970000 197 
013312  7900001719950000130 
013321  7900001920029970130 
013322  7900001719970020107 
013331  7900001330020000107 
013332  7900002210020000100 
019121  3970001659950003130 
019122  3970001659950003197 
019122  3970001659950003130 
019131  397000 1 7 1  0029970 1  07 
019132  3970001769970000103 
019133  3970001760020000103 
019191  3970001050020000130 
019192  3970002020020000130 
019221  3970001659950003197 
019221  3970001659950003130 
019232  3970000193650000190 
019223  3970002020020000130 
019321  3970002150020000130 
019322  3970000510020000137 
019331  3970002150020000130 
019332  3970000510020000100 
019911  0020002903970000100 
019912  0020000513970000100 
019912  0023972089950000130 

ttt  t  ttt  t 


The  ( f )  do 5 
columns  not 
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read  by  the 


ig  nates 
current  1  \ 
program . 


I'Jjjure  12.  IMoi-ram  NET2 


TABLE  6 


Variables 

Arrays 

NN(I,J) 

II(I) 

LR(I) 

LA(I) 

IG(I) 

KON(J) 

N(K) 


Definitions  of  the  NET2  Variables 

Names  Definition 


Designation  of  the  Ith  node  (j=l,5;  computer 
words  are  required) 

(Packed)  word  containing  actor,  event,  and 
target  codes  for  the  Ith  node 

Geographic  region  code  for  the  Ith  node 

Substantive  topic  code  for  the  Ith  node 

Equivalence  group  of  the  Ith  node 

Letter  code  for  the  Jth  tree  type  (J=E,M,P,S,  and  T) 
Input  buffer  (K=5) 
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NET 3:  AN  INTERACTIVE  EQUIVALENCE  SEARCH  PROGRAM 


PROGRAMMING  PHILOSOPHY 

This  interactive  program  reads  the  Node  Information  File  (NIF) — which 
was  described  for  NET2 — and  allows  the  user  to  print  information  on  nodes 
selected  by  one  or  more  of  their  attributes.  Thus,  a  user  may  ask  to  see 
all  node  entries  with  actor  code  365,  or  all  node  entries  with  substantive 
topic  code  09,  or  all  entries  with  actor  code  365  and  substantive  area  09. 

The  program  reads  the  user's  responses  to  questions  designed  to  elicit 
his  selection  criteria  and  sets  up  a  selection  array,  each  word  of  which 
contains  either  the  user's  selected  code  for  the  corresponding  attribute 
or  the  value  -1  indicating  that  this  variable  is  not  used  in  the  selec¬ 
tion  process. 

PROGRAM  DESCRIPTION 

NET3  consists  of  a  main  control  program  and  a  utility  subroutine  to 
convert  alpha-characters  to  integers.  The  flow  diagrams  in  Figures  13A 
and  13B  indicate  the  operations  carried  out  by  the  program.  Definitions 
of  the  arrays  are  given  in  Table  7 . 
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Print  selection 
code  array 


Figure  13B.  NET3:  Section  II:  Search  Node  Information  (NIF)  for  Matches 
to  Selection  Code. 
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TABLE  7 

Definitions  of  the  NET3  Variables 


Variable 

Arrays 

IWORD(K) 

(K=l,5) 

IXX(I,1) 

IXX(I , 2) 

IXX(I,3) 

IXX(I,4) 

IXX(1,5) 

NN(I,K) 

(K=l,3) 

BUFFER 


Name 


Definition 


List  of  the  selection  code 


Actor  code  for  the  Ith  node 

Action  code  for  the  Ith  node 

Target  code  for  the  1th  node 

Geographic  region  code  for  the 
Ith  node 

Substantive  topic  code  for  the 
Ith  node 

Designation  of  the  Ith  node 
(3  variables) 

System  variable  required  for 
file  handling 


NET4:  A  NETWORK  SUMMARY  PROGRAM 


PROGRAMMING  PHILOSOPHY 


NET4  allows  the  user  to  search  the  Tree  Summary  File  (TSF)  for  informa¬ 
tion  across  the  entire  set  of  trees. 

The  user  may  retrieve  and  print  information  for  trees  selected  by  any  of 
eight  variables.  In  addition  to  displaying  sections  of  the  TSF,  the  command 
set  allows  the  user  to  modify  file  entries  and  to  add  new  ones  (although 
these  latter  functions  may  also  be  carried  out  with  the  USAWC  computer 
system's  EDIT  command). 

FILE  STRUCTURE 


The  Tree  Summary  File  contains  the  following  information  for  each  of  the 
networks  in  the  FORECAST  90  system: 


•  Tree  number 

•  Author  of  the  tree 

•  Date  of  tree  creation 

»  Date  of  last  tree  modification 

•  Total  number  of  nodes  in  the  tree 

•  Actor  code 

•  Substantive  topic  code 

•  Region  code 

•  One  line  of  text  describing  the  subject  matter. 


4 

More  complete  information  on  the  catalytic  events  used  to  build  the 
networks  is  given  in  Appendix  I  of  the  "User's  Manual  for  the  FORECAST  90 
Computer  Programs."  Information  on  the  actor,  substantive  topic  and  region 
codes  is  given  in  Appendices  III-VTI  of  that  manual. 
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Tabic  8  is  a  listing  of  a  few  lines  of  the  Tree  Summary  File.  This 
file  has  the  following  format: 


Type  of  Line 

Columns 

Variables 

Tree 

1-  8 

Tree  number 

Designation 

10-13 

Author 

Line 

15-20 

Date  created  (year,  month,  day) 

22-27 

Date  modified  (year,  month,  day) 

29-31 

Number  of  nodes  in  the  tree 

33-35 

Actor  code 

37-38 

Substantive  topic  code 

40-41 

Region  code 

Text  Line 

1-80 

Up  to  80  characters  of  text  to 
describe  the  focus  of  the  network. 

PROGRAM  DESCRIPTION 


NET4  consists  of  a  main  program  only.  An  operational  level  flow  diagram 
is  given  in  Figures  14A  and  14B.  Definitions  of  the  variables  are  given 
in  Table  9. 


TABLE  9 

Definitions  of  the  NET  4  Variables 


Variable  Name 

Definition 

Format 

Arrays 

1X(K,L) 

L=l,  2 

Tree  name 

2A4 

IX(K,3) 

Author  of  the  tree 

A4 

IX(K,4) 

Date  tree  was  created 

16 

IX (K, 5) 

Date  of  last  tree  modification 

16 

IX  (K,  6) 

Number  of  nodes  in  the  tree 

13 

IX(K, 7) 

Actor  code 

A3 

IX(K,8) 

Substantive  topic  code 

A2 

IX(K,9) 

Geographic  region  code 

A2 

IX(K,L), 

L-10,29 

Descriptive  text 

20A4 

BUFFER 

System  variable  required  for  file 
handling 

35 
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IKc.kJ  nrw  date 
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/  Ut'.nl 
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found 
^  ? 


L  9  -• . i 

- ^Rcnd  tree  name.  | 

C60  \ 


Print.  Number  Records  Read 

Print  "Killer  Option" 


,-rae.  I  ■  -Z^OD" 


Hoad  user  option 


End 

v— ^  new 


v*v 

< — ^  Option 


Q - , 

1  Print  list  of 
options  ! 

fe- . . .  , 

r  i 

Print  file 


,<  Print  file 

1 _ I 


®vYES  ,  ^ 

✓—v  .  "DISP" 

Any  Nnv  s'  (50  J 

<  file  changes  r~ - - 1 

?  /  ' 

'  s'  |  See  display  see-  t 

I  tion  figure  10IS.  * 


Read  new  line 


l  Cheek  format  against  old 


✓74  Y1" 

\72  '  N 


Save  YES 

mod  i  f  i  ed  ? - < 

X  r««  . x  _ 4. 


Rewri tc 
File 


•J  KMI>  W - 


Add  line  to  file;) 
update  number  of  ! 
file  changes  j 


XX^l  XX  =  Statement  No.  (See  Program  l.isting  in  Appendix) 

Figure  1/|A.  Program  NIIT4 :  Option  "MOD,"  "END,"  "STOP,"  "DEEP,"  "ALE,"  and  "ADD." 
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GLOSSARY  OF  TERMS  FOR  THE  NET  PROGRAMS 


A1 pha-array 


Message 


Node  Designation 


Node  Index 


Attribute 


Parent  Node 


An  array  in  which  letters  or  other  symbols  are 
stored;  it  may  be  used  in  comparison  statements 
but  not  in  computations. 

The  text,  or  descriptive  material,  accompanying 
a  node  (arranged  in  32-character  lines) . 

The  set  of  letters  and  integers  that  identify 
a  node;  the  name  of  the  node. 

An  integer  specifying  the  order  of  the  node  in 
the  input  deck;  used  to  index  arrays  containing 
node  attributes. 

Numerical  information  about  an  entity;  for 
example,  the  number  of  branches  at  a  node  is  a 
node  attribute. 

The  Parent  Node  of  a  node  in,  say,  level  K  is 
the  node  in  level  K-l,  directly  connected  to  it. 
A  given  node  may  have  only  one  parent . 


Child  Node 


A  child  of  a  node  in  level  K  is  a  node  in  level 
K+l  directly  connected  to  it.  A  Parent  Node 
may  have  several  children. 


¥ 


i 


Appendix  I;  Annotated  Program  Listings  for  NET1 


PROCRAM  NUT! 


Purpose:  To  retrieve  and  print  selected  parts  of  a  single  tree. 


MAIN  CONTROL  PROGRAM 

Purpose:  To  process  the  input  data  describing  the  tree  and  to  execute 
user-specified  options. 


1  o  ’>  I  *T.NS  ION  GTT(600).LIN(600).L0C(600),NPP(600),N0O(600),NnF(6r 

r  ,  Mr  V  <  »  )  ,  \ S T  (  H  >  .  L l  X  t  8 , 90  ) 
n  ">  * , "r  S ( 9  ,  l'jOO)  .BUFFER!  380) 

O  COMMON  GTO.LIN.LOC ,NPR ,N0D ,N0F .MES.NST ,LLX  ,NEV 

:  o  «  ,  V0P)S  ,  N->  1  ,  Nv2  ,  NM  3  .  M  AXLN  ,  I  F  Q 

■ f  ASCII  ANS»1W,IFILF(6).JW,N0 

7C'  P  I  “*ENS  ION  LL(7),II(8),K5<5) 

r  INTEGER  >ORDS«GTO 

DATA  NMOn  ,NLEV,NLLX.NMES/600,f?,9C,  1500/ 

'.'•>0  DATA  K  S  /  3  H  F  o  R  •  3HBAC  ,  3HRF  J  ,  3HST0 , 3HHFL/ 

.10  OATa  I  F  rLE/»  AWC  1  "  .  "SS/C"  ,  "  AC  I /••  ,  "  "  .  "  ••  ,  •'  ;  ••  / 

1?0  DATA  IAS.LANK/lH*. 1H  /.N0/2HNQZ _ 

Pre-processing  phase.  Integer  arrays  are  set  to  0;  alpha  arrays,  to  blanks. 


POINT, "THE  NET!  PROGRAM  ALLOWS  YOU  TO  PRINT” 
PRINT, "PORTIONS  OF  A  SPECIFIED  TREE" 

IFO  =  6 

PR  I  NT  .  "OUTPUT  AT  TERMINAL  " 

READ , ANS 

IF ( ANS.FQ.NO ) IFO  =  10 
WPR0S=8 
I  V  =  0 

DO  1  K=1,Nn0D 

NOF(K)=LANK 

N  r<  R  (  K  )  S  0 

NOD  (10=0 

LPC<K)=0 

LIN<K>=0 

G  T  0  (  K  )  =  0 

1  CONTINUE 
M  A  XL  N  =  0 

DO  2  K=1,NLEV 

2  NST(K)=0 

DO  4  K=1,NLLX 
DO  3  Jsl.NLEV 

3  LL  X  <  J , K  )  =0 

4  CONTINUE 

DO  6  X=1,NMES 
ME  S  <  9 . X 1=0 
DO  5  J=I. WORDS 

5  ME  S  (  J  ,  K  )  sL  ANK 
A  CONTINUE 


140 
1*2 
144 
146 
148 
ISO 
1  r  5 
1  60 
170 
I  «0 

1  90 
200 

2  1  0 
?°0 
?  3  0 
140 
CEO 
26  0 
270 
2*0 
°  90 
30  0 
310 
320 
330 
340 
380 


PROGRAM  NETl 

MALN  CONTROL  PROGRAM  (continued) 


Powers  of  10  are  stored  in  array  'LL'  for  use  in  determining  the  level  of  a  node 
from  the  numerical  value  of  its  designation.  (See  subroutine  LEVEL. ) 


8 


LL<  1  )  =  1 
DO  8  K=  1  •  6 
LL (K+l >=10**K 


The  user  is  asked  to  enter  the  name  of  the  tree  he  wishes  to  consider.  After 
several  counters  are  set  to  0  and  scratch  file  02  is  created,  the  specified 
tree  is  attached  as  file 


390 

181 

PRINT. “ENTER  TREE” 

400 

READ  182.IW.JW 

402 

182 

F0RMAT( A4.A3) 

410 

PRINT  182.IW.JW 

420 

PRINT, "OK  " 

430 

read. ans 

440 

IF( ANS.EQ.hNO")GO  TO  181 

450 

I F I LE ( 4 ) s I W 

452 

IF ILE ( 5 ) = JW 

460 

IG  =  0 

470 

I  N  =  0 

480 

MX  =  0 

490 

F  =  0. 

500 

IH=LANK 

510 

CALL  CREATE(02, 1000,0, ISTAT) 

520 

CALL  ATTACH! 01 , IF ILE. 1 . 0 , I STA T . BUFFER > 

Input  phase.  Data  for  nodes  in  the  first  three  levels  are  read.  It  is  from  the 
node  designations  for  the  first  level  nodes  that  the  initial  seven  characters 
of  the  node  designations  are  read.  These  fields  are  skipped  for  the  remaining 
nodes. 

530  180  READ  (1.411)  N  1  ,  N*2  »  NM  1  ,  NM2  •  NM3 

540  411  F0RMAT< 2  I  1 ♦ A3. 2A2 ) 

550  GO  TO  210 

560  190  IF  (IN-3)  180,191.191 


The  remaining  input  is  read. 


570  191  REA0<  1 . 200 , END=220 > N 1 ,N2,F,  IN 

580  200  FORMAT ( 21 1 .7X.F5.0.A4 ) 

590  192  IF  (Nl-9)  210.220.220 


v- 


PKOC.RAM  NET1 

MAIN  CONTROL  PROGRAM  (continued) 


IN  is  the  index  of  the  node  currently  being  processed.  Attributes  of  this 
node  are  stored.  For  level  8  nodes,  the  node  designation  must  be  computed.  (On 
the  input  cards  a  level- 8  node  is  identified  by  the  characters — up  to  4 —  fol¬ 
lowing  the  decimal  point  in  the  node  designation.  Internal  to  the  program,  level 
nodes  follow  the  same  pattern  in  their  designations  as  the  other  nodes;  for  examp 
a  level  8  node  will  have  one  more  integer  than  its  level  7  Parent  Node.  Thus, 


600 

2  1  0 

IN=IN*1 

610 

NBR< IN ) =  N2 

620 

IF  (N1.EQ.8)  F  =  F* 1 0» ♦ 1 . 

630 

NOD (  I  N  )  =  F 

640 

NOF (  IN  >  =  IH 

650 

IF  (IN-4)  208.208,213 

660 

208 

LS=  IN 

670 

GO  TO  218 

680 

213 

CALL  LEVEL < LL  ,  NOD <  IN)  ,LS> 

690 

216 

IF  (LS-N1)  217.218,217 

700 

217 

PRINT  203.N1 ,LS,N0D( IN ) 

710 

203 

FORMAT (IX, 6H  ERROR  .212.18) 

720 

218 

NST  (LS)=NST  (  LS  )  ♦  1 

The  texts  for  all  of  the  nodes  are  stored  in  a  single  array,  MES.  The  location 
in  this  array  of  the  first  line  of  text  for  node  IN  is  stored  in  the  array  LOC. 
One  line  of  text  is  read,  counted,  and  stored. 


730 

LOC  (  1N)  =  IMM 

740 

211 

READ( 1 ,202,ENO=220)K0DE , I I 

750 

202 

FORMAT ( A  1  *  8 A4 ) 

760 

194 

L I N ( I N ) =L I N ( I N )  +  1 

770 

im=im+i 

780 

IF  ( IM*GT  •  1500  )  GO  TO  219 

790 

00  212  K=l, WORDS 

800 

212 

ME  S ( K  » IM)  =  I I <  K  > 

The  local  variable,  RODE,  contains  the  character  found  in  the  first  column  of 
the  text  card.  The  three  allowed  values  and  their  meanings  are: 

(1)  blank  There  are  additional  lines  of  text  for 

this  node. 

(2)  /  This  is  the  last  line  of  text  for  this  node 

and  there  are  no  GO  TO  nodes. 

This  line  specifies  a  GO  TO  node. 


(3)  * 


PROGRAM  NET  1 

MAIN  CONTROL  PROGRAM  (continued) 


Any  character  in  the  first  column  of  a  text  card  other  than  blank,  /,  or  *  is 
treated  as  a  /  . 


(CODE  =  blank  ;  reading  of  the  text  continues.  MAXLIN  is  reset,  if  necessary. 


810  IF  ( KODE .EQ. LANK >  GO  TO  211 

8?0  IF  <LIN< IN)  .GT.MAXLN)  MAXLN=L I N (  IN) 


KODE  t  blank  ;  this  card  must  be  either  the  last  text  card  or  the  first  GO  TO 
line.  If  KODE  f  *  ,  this  card  is  the  last  text  card  and  control  must  be  passed 
back  to  statement  190  to  read  the  next  node  card. 


830  IF  (KODE. NE. I  AS)  GO  TO  190 


KODE  =  *  ;  this  is  a  GO  TO  line.  It  is  tagged  as  a  GO  TO  line  and  counted. 


840  MES(9.IM)=1 

850  GTOC IN)=GT0< INJ+l 


The  next  card  is  read.  Now  if  KODE  j  *,  the  card  must  be  a  new  node  card.  It 
must  be  written  to  scratch  file  ('02')  so  that  it  may  be  reread  in  the  correct 
format.  Control  is  then  returned  to  statement  '192'  so  that  the  new  node  may 
be  processed. 


860  READ (It  202  )  KODE. II 

870  IF  (KODE. EQ. I  AS)  GO  TO  194 

880  REWIND  2 

890  WR I TE ( 2 . 202  )  KODE. II 

900  REWIND  2 

910  READ ( 2 . 200  )  N1.N2.F.IH 

920  GO  TO  192 


Reading  of  the  input  is  ended  when  the  end  of  file  is  encountered  or  when  the 
message  file  is  filled  (it  has  a  maximum  of  1000  lines  as  currently  dimensioned). 
The  total  number  of  nodes  in  the  tree  and  the  nodes  per  level  are  pr intea. 


930  219  PRINT ."MESSAGE  FILE  TOO  LARGE" 

940  220  PRINT  300 , I N . < NST ( J ) . J= 1 , 8  ) 


14/  l 5H  NODE  S/L  E  VF  L 


MAIN  CONTROL  PROGRAM  (continued) 

9S0  300  FORMAT ( 27HINPUT  FINISHED  NO.  NODES  =  . 

960  SB  I  5  ) 

The  next  section  writes  the  node  designation,  number  of  branches,  and  number 
of  GO  TO's  for  each  node  in  the  tree  to  scratch  file  09.  This  information 
may  be  used  in  checking  new  trees.  Currently,  lines  961-966  are  inactive.  To 
reactivate  this  section,  the  letter  C  following  the  line  number  must  be 
removed . 


96  1  C  CALL  CREATE < 09 , 500000 . 0 , ISTAT > 

962C  DO  884  K=1.IN 

96  3C  884  WRITE  ( 9 , 886 ) NOD < K ) , NOE ( K )  ,  NBR t K  )  ,  6 TO ( K  ) 
964C  886  FORMAT ( I  7 . A4 . 4 (  1  X  .  14  )  ) 

965C  CALL  APR  I  NT  (  09  ,  •'  A  WC  1  S  S  .  F  RCS  T  9  0"  «  9  »  "R  A  *'  > 

966C  CALL  DE T ACH C 09 . I S T A T  ,  BUF F E R > 


The  first  three  words  in  array  NOD  are  set  to  0.  The  user  is  asked  to  enter 
the  initial  node  he  wishes  to  consider.  He  is  allowed  to  enter  the  full  node 
designation,  although  the  program  reads  only  the  four  integers  following  the 
first  seven  characters.  Any  character  punched  beyond  the  four  integers  in¬ 
dicates  a  level  8  node,  whose  designation  internal  to  the  program  must  be  com¬ 
puted  as  in  the  initial  data  entry. 


970 

DO  207  L  =  1 , 3 

980 

207  NOD  <  L  )  =0 

990 

223  PRINT  225 

1000 

225  FORMAT (  IX, 18HENTER  INITIAL  NODE 

) 

1010 

224  READ  226.F.IH 

1020 

22 6  F0RMAT(7X«F5»0»A1 ) 

1030 

IF  (IH.NE.LANK)  F=F*10.*1. 

1040 

N0DE=F 

The  level  of  the  node  is  determined.  (Currently,  the  initial  node  may  not  be 
in  levels  1  or  2.) 


1050  IF  (NODE)  400,400,40! 

1060  400  LS  =  3 

1070  60  TO  500 

1080  401  CALL  F I ND < NODE , NOD , KK > 

1090  IF  (KK.NE.999)  GO  TO  402 

1100  PRINT  22 7 

1110  227  FORMAT ( 1X,30HERR0R  IN  NODE.  PLEASE  RE-ENTER  ) 

1120  GO  TO  224 

1130  402  CALL  LE VEL < LL , NOOE , LS ) 


PROGRAM  NET  1 


MAIN  CONTROL  PROGRAM  (continued) 


The  user  is  asked  to  enter  his  option.  His  available  choices  (FOR,  BAC,RF.I  ,HKL, 
and  STOP)  were  stored  in  array  KS,  which  must  be  searched  to  find  which  he 
has  selected.  If  his  entry  cannot  be  identified,  the  options  are  printed  and  lie 
is  given  a  second  chance. 


1  1  40 

500 

PRINT  601 

1  1  50 

601 

FORMAT  <  1  X  ,  1 2HENTER 

OPTION  ) 

1  160 

READ  502,  INS 

1  1  70 

502 

FORMAT (A3 ) 

1  180 

DO  504  K=1 , 5 

1  190 

IF  (  INS.EO.KSiK  )  ) 

GO  TO  506 

1  200 

504 

CONTINUE 

1210 

GO  TO  508 

Program  control  is  transferred  to  the  user's  option. 


1220  506  GO  TO  ( 5 1 0 , 520 , 530 . 999 , 508 ) . K 


The  user  has  asked  for  instructions  by  entering  HELP  (or  HEL,  since  only 
the  first 


1230  508  PRINT  509 

1240  509  FORMAT  < 1  OH  OPTIONS  :  /31H  FOR  -  PRINT  HIGHER  LEVEL  NODES  / 

1250  A 3 1 H  BACK  -  PRINT  LOWER  LEVEL  N0DES/26HRE J  -  PRINT  REJECTED  NODES/ 

1260  421H  HELP  -  PRINT  OPTIONS  /  31H  STOP  -  HALT  PROGRAM  EXECUTION  ) 

1270  GO  TO  500 


The  user's  print  options  and  their  corresponding  subroutines  are: 

FOR-  to  print  forward-  Subroutine  SF 

BAC-  to  print  back-Subroutine  SB 

REF-  to  print  rejected  nodes-  Subroutine  SR 


.iuacttaa&g 


- 


i 

\ 


PROGRAM  NKT 1 

MAIN  CONTROL  PROGRAM  (continued) 


The  subroutine  matching  the  user's  option  is  called.  It  will  store  the  nodes 
to  be  printed  in  array  LLX. 


1280 

510 

CALL  SF1LLX.NEV. NOD. NBR, NODE. LS) 

1290 

M  =  0 

1  300 

GO  TO  540 

1310 

520 

CALL  SB(LLX. NOD. NEV.LS. NODE) 

1  320 

M=  1 

1330 

GO  TO  540 

1  340 

530 

CALL  SR < LLX . NOD .NE V ,LS .NODE ,NBR ) 

1  350 

M  =  2 

The  nodes  are  printed.  First,  the  temporary  output  file,  10,  is  created. 
Subroutine  PRINT  is  called  to  write  the  output  to  10.  If  the  output  has  not 
already  been  printed  at  the  terminal,  then  the  AWC-supplied  subroutine  APRINT 
is  called  to  print  file  10,  and  the  temporary  file  is  detached.  Program  control 
is  returned  to  statement  223  to  allow  the  user  to  enter  a  new  initial  node. 

Note:  The  location  of  the  CREATE  and  DETACH  commands  causes  a  new  set  of  output 
(for  example,  a  new  job)  for  each  user  request.  Alternatively,  the  program 
could  be  modified  to  write  all  output  from  a  single  program  execution  to  file  10 
before  APRINT  is  called  and  the  file  detached.  However,  in  case  of  an  error 
in  any  one  of  the  user  requests,  no  output,  even  from  correct  requests,  would 
be  produced.  The  current  procedure  seems  safer. 


1360  540  CALL  CREATE  (  I F Q . 5 000 0 0 , 0  ,  I S T A T  ) 

1370  CALL  PRINT(M) 

1175  I F  <  IF0.E0.6lG0  TO  550 

1380  CALL  APRINT ( IFQ , "AVC1 SS .FRCST  90". 9, "R A") 

1  390  550  CALL  DF T A C H <  I F 0 , 1 S T A T . B UFF E R  ) 

1 A  00  GO  TO  223 


The  input  file  01  and  the  scratch  file  02  are  detached.  Execution  is  halted. 


1410  999  CALL  0E T ACH { 02 , I  ST A T , BUFF E R  ) 

1420  CALL  DETACHtOl , 1STAT, BUFFER) 

1430  STOP 
1440  END 


PROCRAM  NKT1 


SUBROUTINE  PR] NT (MODE) 

Purpose:  To  print  node  designations  and  text  for  all  nodes  stored  in 

array  EEX.  M01)C=0;  Print  Foreword;  Mode=l,  Print  Back;  Mode  2; 
print  rejected  nodes. 


1*50  SUBROUTINE  PRINT(MDDE) 

146  0  DIMENSION  GT0<600),LIN(600),L0C(600>.NHR(600).N0D(6  0n),Nr)r  t  ‘  0 

1470  n  ,NEV  (  8  )  ,NST  <  8  )  ,LLX  (  8  ,  <30  ) 

1  4  P 0  f.  ,  MES  (  9 , 1  500  ) 

1400  COMMON  GTO  ,LIN  ,LOC  ,NP,R  .NOD  ,  NOF  ,MES  .  NST  ,LLX  ,NEV 

1500  8.W0RDS.NM1  i  NM2  i  NM3  ,M  AXLN  t  IEO 

1M0  DIMENSION  I  SET  (  90  )  ,  I  OUT  <  8 . 90  >  .  JOUT  (  90  .  H  >  ,KOuT  (  DO  .  8  > 

I5?0  integer  woros.gto 

1530  DATA  N0.LANK/2HN0.4H  / 


This  section  prints  the  node  designations  (without  the  first  7  characters) 
of  the  nodes  in 

of  the  tree  being  printed,  but  lines  1550-1600  may  be  removed  without  affect¬ 
ing  the  major  functions  of  the  program. 


1  540 

MZ  =  0 

15  5  0 

WRITE* I F  0 . 38 ) 

MODE 

15  6  0 

00  39  K  = 1 . 8 

1570 

t.E  =  NEV  (  K  ) 

1  580 

WRITE< IF0.38) 

(LLX(K.J) 

1590 

39 

continue 

1600 

38 

F0RMAT< 1116) 

The  nodes  having 
to  0. 

1540  M7  =  0 

1610  00  50  1=1.50 

1620  50  1  SET ( 1 ) =0 

1630  I S=0 


The  node  designations  stored  in  LLX  are  converted  to  node  indices 


1640 

70 

00  84  1=1,8 

1650 

L I M=NE V  <  I  ) 

1660 

IF  <  L  I  M  )  84,84.92 

1670 

92 

IF  (1-3)  94,94,82 

1680 

94 

LLX (  I  .  1  )  =  I 

1690 

1  OUT ( I , 1 )  =  I 

1700 

60  TO  84 

PROGRAM  NET l 

Sv't’Ki il’TI NE  PRINT  (continued) 

1710  82  DO  83  K  =  1  ,LIM 

1720  CALL  FIND(LLX(  I  ,K)  .NOD.KK) 

l’ 30  IF  (KK.NE.999)  GO  TO  78 

1740  PRINT  79,LLX<I,k> 

)7*iO  79  FORMAT  (  6H  NODE  •  I  5  •  1  OH  NOT  FOUND  ) 

J  76 0  GO  TO  83 

(V i L  i* :  The  nodes  in  LLX  were  computed  from  the  initial  node  and  the  number 
brunches  in  each  parent  node.  If  there  is  an  error  in  the  number  of 

•  ranches  or  if  the  node  has  been  ommitted  from  the  data  file,  this  error 

••  i *.*e  may  be  printed.  Program  execution  will  continue.  If  the  error  lies 

sjHcifving  a  value  for  the  number  of  branches  larger  than  the  correct 

v.tiuc,  the  output  will  be  correct.  It  will,  of  course,  be  in  error  if  a  node 

h  Seen  omitted.  ) 

1770  78  LLX ( I ,K ) =  KK 

1730  IF  (GTO(KK))  83,83.81 

1790  81  IS=IS+1 

1  a  0  0  ISET(IS)=KK 

1  a  1  o  MZ=IS 

1 P 2 0  83  CONTINUE 

1830  84  CONTINUE 

! he  node  indices  are  transferred  to  array  'IOUT'.  This  array  is  similar  to 

*  I.I.X *  except  that  blank  entries  are  inserted  to  provide  provide  spacing  of 
the  output  for  levels  4-8. 


1  840 

PRINT. MZ 

1  850 

DO  90  LM=4.8 

l  860 

MAXrNEV ( LM  ) 

1  8  70 

IF  (MAX)  90.90.91 

1880 

91 

11  =  0 

1  890 

DO  86  1=1, MAX 

l  900 

I  Z  2  =  LL  X ( L  M , I > 

1910 

IF  (IZZ)  86,86,80 

1920 

80 

I  T  =  I  T  +  1 

1  930 

I  OUT ( L  M , I T )  =  I Z  Z 

l  940 

IF  (MODE)  10.10.86 

1  950 

10 

NBB=NBR( IZZ ) 

1  960 

IF  (NB8-1)  86,86,72 

1970 

72 

DO  74  KK=2,NBB 

1  980 

IT=ITM 

1  990 

74 

I OU  T ( L  M , I T ) =0 

2000 

86 

CONTINUE 

2010 

NE V ( LM ) = I T 

2020 

90 

CONTINUE 

i*ho(;kam  nkti 


Sl.'KKOl'TINK  PRINT  (continued) 


1  Ik-  tree  is  printed  in  sections,  two  levels  per  section.  The  major  local 
variables  in  this  section  are: 

I vi.  -  Index  of  the  lower  level  (printed  at  the  left  of  the  page. 

I.VH  -  Index  of  the  upper  level  (printed  at  the  right  of  the  page) 

I.o  -  Number  of  nodes  in  the  lower  level 

l.il  -  Number  of  nodes  in  the  upper  level 

!.  1  -  Larger  of  the  two,  LO  and  LH 

'.ill  -  Index  of  the  higher  level  node  to  be  printed 

Nil  1  -  Index  of  the  upper  level  node  to  be  printed 


2030  DO  130  KZ=1,8,2 

?O40  LVL=8-KZ 

2''r>0  LVH=9-KZ 

.’060  LH  =  NE  V  (LVH  ) 

2^70  L0=NEV(LVL) 

NOIE:  If  L0=0  and  LH=0  and  this  was  a  print  forward,  the  printing  is  finished. 
Otherwise,  the  section  heading  is  printed. 

If  the  lower  level  is  l,  the  node  designations  are  printed  at  this  point. 

IF  CLO  +  LH)  95,95,101 
,r>0  ">5  IF  (MODE)  223, 2?3, 130 

i  i"  101  WRITE!  I F  0 ,  i  1  1  ) l  VL 

’■10  111  FORMAT  ( //23X,  15HNETW0RK  SECTION  ,12/) 

;m?0  IF  (LVl-1  )  125,125,128 

1,0  WRITE! IFQ. 901 )NM1 ,NM1 ,NM2 

’140  901  FORMAT (////1X,A3,36X,A3,A2) 


The  output  arrays,  JOUT  (left  side)  and  KOUT  (right  side),  are  set  to 


ulunks. 

2150 

NL  0=  1 

2160 

NH  1=2 

2  1  70 

l  28 

1.7  =  0 

?  1  BO 

L8  =  0 

?  1  90 

L  1  =LH 

2  2  0  0 

IF  (L0.6T.LH)  Ll= 

22  10 

DO  129  K  =  1  ,  L  1 

2220 

DO  103  LN=1  .MAXLN 

2230 

DO  103  LW=1. WORDS 

2240 

KOUT (LN,l_W)=LANK 

2250 

JOUT<LN.LW)*LANK 

2260 

103 

CONTINUE 

A 


rune  ram  ni:ti 

SnUvOUTINK  PRINT  (continued) 


ilie  local  variables,  N1.0  and  NIII,  are  set  to  the  indices  of  the  lower  and  upper 
level  nodes  next  to  be  printed.  If  there  is  no  higher  level  node,  then  the  local 
variables  NIT  and  NDL)  are  set  to  blank  and  0,  respectively.  If  there  is  a 
h i alter  level  node,  NDD  is  set  to  the  node  designation  and  NFF  to  the  final 
alpha  characters  in  the  full  node  designation  (blank  except  for  level  8  nodes). 

1 :  the  higher  level  is  level  8,  the  final  integer  added  to  the  node  desig¬ 
nation  during  the  input  phase  must  be  removed  before  printing. 


?  ?  7  0 

IF  (LVL.EQ.l)  GO  TO  108 

?  ?  8  0 

NL0=I0UT ( LVL ,K ) 

?  ?90 

NHI=I0UT(LVH,K) 

?  ?  '-4? 

LA=NL0  +  NHI 

?  ?Q4 

•-W 

-J 

» 

* 

II 

CL 

-J 

2  ?96 

IF(LA«E0.0.AND.LB.EQ.0)  GO 

2300 

29 

IF  (NHI)  40,40,42 

/!10 

40 

nff=l ank 

?  320 

NO  0  =  0 

?  3  30 

GO  TO  46 

?  3«  0 

42 

NFF=N0F(NHI ) 

?  3SO 

NDD  =  N0D ( NH I  ) 

?  160 

44 

IF  (LVH.EQ.8)  ND0=NDD/10 

fall  node  designations  are  printed. 


.  WO 

:m  *  o 
» oo 

aio 

•>4?o 

■  t  ,■ 

?  A  A  0 
A  r,  0 

,  *  r 

t.  *  M 


A6  IF  (LH)  96,96,98 

96  V,  R  I  T  E  <  IFQ,903)NM1  ,NM2.NM3.N0D(NL0> 

903  F0RMAT(////1X,A3.2A2,I4) 

L  8  =  NH I 
GO  TO  108 

98  IF  ( NLO )  106, 106, 104 

104  WRITE!  IFQ,  102) NM 1  ,NM2,NM3,N0D(NL0> , NOF  C  NLO  )  ,NM1  ,NM2,NM3, 
SMDD.NFF 

10?  FORMAT  < ////l X , A3 ,2A2 . 14 , A4 ,24X , A3 ,2A2 , 1 4 , A4  ) 

GO  TO  108 

106  WRITE ( IFQ, 902 )  NM  1 ,NM2,NM3,N00,NFF 
90?  FORMAT  <////41X,A3,2A2.I5.A4  ) 


“’r  t,u’  nodes  are  transferred  to  the  output  arrays,  JOUT  and  KOUT, 
'  ;  pi  i tiled. 


PROGRAM  NKT1 

SHiKOlM  INK  PRINT  (continued) 


?4  90 

108 

IF  <  NLO-L  7  )  114.116.ii4 

?',00 

1  1  4 

L  S  7  =L  OC ! NLO ) 

^10 

LE7  =  LS7-H-IN!NL0)-1 

?  «  ?  0 

L  P  =  0 

C 

00  115  JM  =  L  S  7 . L E  7 

,'".4  0 

L  P  =  L  P  ♦  1 

p 6  0 

DO  115  JW=1. WORDS 

?  r  60 

1  1  5 

J0UT!LP.JW)=MES!JW.JM) 

2  5  7  0 

L7=NL0 

2^80 

1  1  6 

IF  (NHI.EQ.O)  GO  TO  120 

p  <■  9  o 

IF  1NHI-L8)  118.120.118 

?«>on 

1  1  8 

LS8=L0C ( NHI ) 

?  *  1  0 

LE8=LS8+LIN!NH1 )-l 

2'  ?0 

LP  =  0 

2  6  3  0 

DO  119  JM=LS8,LE8 

1 .  4 0 

LP=LP+ 1 

?>  so 

DO  119  JW=1. WORDS 

2  5  6  0 

1  1  9 

KOUT(LP,JW)=MES(JW.JM) 

?  7  0 

L8=NH 1 

?6  80 

1  20 

DO  1 22  LZ=1.MAXLN 

•  .  ' 

I  ?  ? 

»'R  I  TF  (  l  FQ  ,  1  1  7  )  C  JOUT  (  LZ  ,LX  >  . 

?700 

1  1  7 

FORMAT!  1X.8A4.4X.8A4 ) 

2  7  1  0 

1  29 

CONTINUE 

2  T?0 

1  30 

CONTINUE 

-  30 

223 

DO  200  1=1, WORDS 

2740 

DO  200  J= 1 ,50 

2  750 

LLX ( I . J)=0 

2  760 

I  OUT ( I  ,  J ) =0 

2770 

200 

CONTINUE 

!  ■  i 

:iy  of 

the  nodes  printed  had  GO  TO  lines, 

■ :  n. 

ivlng 

them  printed. 

|_X=1  .WORDS)  . (KOUT(LZ.LY)  .  LY=1  . 


the  user  would  be  given  the  option 


2780 

IF  <MZ>  999.999 

.899 

2790 

899 

PRINT  905 

2  "90 

905 

FORMAT! I6H  LOOK 

AT  GO  TO'S  ) 

?  M  1  0 

READ  906, IWS 

2820 

906 

FORMAT ! A2 ) 

2"  10 

IF  !  1WS.E0.N0) 

GO  TO  999 

,'"40 

WR  I  TF (  IFQ , 907  ) 

2850 

907 

FORMAT ( 5H  NODE 

.10X.5HG0  TO 

2860 

DO  910  1=1, MZ 

2«  7  0 

J= I SE T !  I  ) 

2880 

LS=LOCt J) 

2890 

LE«LS*LIN( J)-l 

wop 


PROGRAM  NRT1 


SUKROUTINK  PRINT  (continued) 


2000  00  916  K=LS,LE 

2910  IF  ( ME  S  <  9  «  K  )  )  916.916,912 

r  c  2  0  9  1?  WRITE!  IFQ.9141NM1  ,  N  M  2  .  N  M  3  .  N  0  0  (  .1  )  .  (  »  E  S  (  L  ,  K  )  ,  L  =  1  .  h  ) 
2930  914  FORMAT (  1X.A3.2A2. 14, 1X.6A4  ) 

2940  916  CONTINUE 

2950  910  CONTINUE 


Control  is  returned  to  the  MAIN  CONTROL  PROGRAM. 


2960  999  RETURN 

2970  END 


VlSL 


PROGRAM  NET1 


SUBROUTINE  SF(LI.X,NEV,NOI>,NBR,NOI),I.S) 

Purpose:  To  identify  and  store  in  LEX  ail  higher  level  nodes  directly  con¬ 
nected  to  the  initial  node,  NODE. 

LS  is  the  level  of  NODE  and  array  NEV  will  contain  the  number 
of  nodes  to  be  printed  in  each  level. 


2980  SUBROUTINE  SF ( LLX . NEV . NOD . NBR , NODE , LS  ) 

2990  DIMENSION  LL X ( 8 . 50 ) . NE V < 8 ) , NOD < 600 ) , NBR < 600 ) 


The  node  counter,  NEV,  is  set  to  0. 


3000  DO  8  1=1.8 

3010  8  NEV(I)=0 


Program  control  is  transferred  to  instructions  for  level  LS. 


3020  GO  TO  <  10, 10,20,30,30,30.70,80)  ,LS 


Levels  1  and  2.  (NOTE:  Currently,  the  initial  node  may  not  be  in  levels  1  or  2) 


3030  10  PRINT, "ERROR  IN  INITIAL  NODE  LEVEL" 

3040  L  S  =  9  9 

3050  GO  TO  90 


Levels 

3  - 

6 

3060 

20 

LLX( 3. 1 ) =0 

3070 

NEV ( 3 ) = l 

3080 

GO  TO  31 

3090 

30 

LLX  <  LS  ,  1  ) =N00E 

3100 

NEV  <  L S )  =  1 

3110 

31 

DO  32  I  =LS , 6 

3120 

J=I 

3130 

K  =  I  ♦  1 

3140 

CALL  CHILD! J,K, LLX. NOD. NBR, NEV) 

3150 

32 

CONTINUE 

3  1  6  C 

GO  TO  75 

PROGRAM  NKT 1 

SUBROUT INK  SF  (continued) 


Level  7 


3170 

70 

LLX ( 7 . 1 1 =N00E 

3180 

NEV  <  7 1  =  1 

3190 

75 

NG=NEV ( 7 ) 

3200 

NEV<  8>=NG 

3210 

DO  77  K  = 1  *  NG 

3220 

77 

LLX(8.K)=LLX<7,  KlMO+l 

3230 

GO  TO  90 

Level  8 


32AO  80  LLX ( B i  1  )=N00E*10+1 
3250  NEV(81=1 


Control  is  returned  to  the  MAIN  CONTROL  PROGRAM 


3260  90  RETURN 

3270  END 


PROGRAM  NKT1 

SUBROUT  1 NE  SB  ( l.LX ,  NOD ,  NEV ,  LS  ,  NODR) 


Purpose:  To  identify  and  store  in  I, LX  all  lower  level  nodes  directly  con¬ 
nected  to  the  initial  node,  NODE. 

LS  is  the  level  of  MODE  and  array  NEV  will  contain  the  number 
of  nooes  co  be  printed  in  each  level. 


SUBROUTINE  SB(LLX.N0D .NEV, LS. NODE ) 
DIMENSION  LLX<8,50>  ,NOD<  600)  »NEV(8) 


The  node  counter,  NEV,  is  set  to  0.  The  initial  node.  NODE,  is  stored  in 
LLX. 


4 


P HOC RAM  NET1 

SUH ROUT 1 NE  SR ( LLX , NOD , NEV , LS , NODE , NBR) 

Purpose:  To  identify  and  store  in  LLX  all  lower  levels  not  directly  connected 
with  initial  node,  NODE,  hut  in  the  same  main  branch  of  the  tree. 


SUBROUT INE  SR ( LLX .NOD .NEV  »LS .NODE . NBR  ) 
DIMENSION  LLX<8.50).NODC600).NEV<8> 


The  node  counter,  NEV,  is  set  to  0.  The  initial  node,  NODE,  is  stored  in 
LLX. 


3460  &  .  NBR ( 6  00 ) 

3470  DO  6  1=1.8 

3480  6  NEV ( I ) =0 


The  next  lower  level  is  computed.  If  it  is  above  3,  the  Parent  and  Grand¬ 
parent  Nodes  are  computed. 


3490  NEV(LS)*1 

3500  LLX(LS, 1 )=N0DE 

3510  9  LP=LS-1 

3520  IF  ( LP-3 )  20.20.10 

3530  10  NODP=NODE/10 

3540  N0DG=N0DP/10 


If  the  grandparent  Node  is  0,  its  level  must  be  3;  otherwise,  subroutine 
FIND  is  called  to  get  level  K  of  the  grandparent  NODG. 


3550  IF  (NODG)  30.30.32 

3560  30  Ks3 

3570  GO  TO  34 

3580  32  CALL  F I ND ( NODG . NOD . K > 


All  children  of  the  grandparent  Node  are  stored  in  LLX. 


3590  34  MXsNBR(K) 

3600  00  12  J= 1 . MX 

3610  12  LLX(LP.J)=N0DG*10+J 

3620  NEV  <  LP ) =MX 


PROGRAM  NET l 


SUBROUTINE  SR  (continued) 


The  next  lower  level  is  considered  and  the  steps  above  repeated  until  level  1 
is  reached. 

3630  LS=LP 

36 A  0  N0DE=N0DP 

3650  GO  TO  9 


When  level  3  is  reached,  no  further  searching  is  necessary.  Levels  1,  2,  and  3 
have  only  one  node  each.  These  nodes  are  stored  in  LLX. 


3660  20  DO  22  J=l#3 

3670  LLX( J. 1)=N0D< J) 

3680  NEV(J)=1 

3690  22  CONTINUE 


Control  is  returned  to  the  MAIN  CONTROL  PROGRAM. 


3700  RETURN 

3710  END 


PROCRAM  Nl-Tl 


S  UR  ROUT  I NK  Cll  I  [-0(1-1 ,  L2 ,  LLX, NOD, NBR,  NliV  ) 


Purpose:  To  store  in  LLX  all  children  of  those  level  LI  nodes  already 
in  1,1.X. 


3720  SUBROUTINE  CH I LO ( L  1  . L 2 . L L X , NO D , NB R  ,  NE V  ) 

3730  DIMENSION  LLX { 8 . 50 ) , NOD ( 600 1 • NBR ( 600 > . NE V ( 8 ) 


The  local  variable,  L1M,  is  set  to  the  number  of  LI  nodes  in  LLX. 
N  will  be  the  counter  for  the  level  L2,  nodes  to  be  stored. 


3740  LIM=NEV<L1) 

3750  n=0 


The  index  of  each  node  stored  in  LLX  must  be  found. 


3760  DO  30  1  =  1,  LIM 

3770  K=LLX<L1.I> 

3780  IF  (K>  11,11.12 

3790  11  L=3 

3800  GO  TO  26 

3810  12  CALL  F  I  ND < K , NOD , L ) 

(NOTE:  If  the  node  cannot  be  found,  an  error  message  will  be  printed  at  the 

terminal.  Execution  will  continue,  but  the  output  for  this  option  will 
not  be  correct.) 

3820  IF  (L.NE.999)  GO  TO  26 

3830  PRINT  100, LI. K 

3840  100  FORMAT ( 25HERR0R  IN  SUBROUTINE  CHILD/5HN0DE  ,  1  6 , 5HLE VEL  .  1 X , I  3 , 

3850  &39HC ANnOT  BE  FOUND:  EXECUTION  CONTINUING.  ) 

3860  GO  TO  30 


All  children  of  this  node  are  stored  in  LLX.  These  steps  are  repeated  for 
all  level  LI  nodes  in  LLX.  When  all  nodes  have  been  processed,  control  is 
returned  to  subroutine  SF. 


3870 

26 

KKsK* 1 0 

3880 

M  I  M  =  NBR ( L ) 

3890 

DO  27  NQ-1 .MIM 

3900 

N  =  N  +  1 

3910 

27 

LLX(L2,N)=KK+NQ 

3920 

NEV<L2)=NEV<L2)*MIM 

3930 

30 

CONTINUE 

3940 

RETURN 

3950 

END 

Appendix  II:  Annotated  Program  Listings  for  NET2 


PROGRAM  NKT2 


Put  post*:  To  identify  ;ind  print  all  groups  of  equivalent  nodes  across  the 
entire  set  of  trees. 


10  DIMENSION  KON  <  5  )  ,  N  <  5  )  .BUFFER  (380), 

20  ANN  <  -3  010.  C)*!T<S010).LR<5010),LA(5010).  16(5010) 

30  INTEGFR  BL.AS 

<l  0  DATA  BL.AS/1H  ,1H*/ 

SO  DATA  KON/ 1HE  ,  1  HM  ,  1  HP  ,  1HS  .  1 HT/ 


The  input  file  NIF  (Node  Information  File)  is  attached. 


60  1=0 

70  CALL  ATTACH  (01,  "AWC1SS/CACI" , 1 , 0, ISTAT, BUFFER) 


Input  phase.  The  input  file  is  read.  The  local  variables  II,  12,  and  13 
(containing  actor,  action,  and  target  codes,  respectively)  are  packed  into  a 
single  word.  The  other  node  descriptors  are  stored. 

SO  1  READ  ( 1 «  1 00 , END=50 >  N  .  I  1  • I  2 . 1 3 • 1 4  ,  I  5 

90  100  FORM  AT ( 3A 1 . 2A4 . 1 X  .  I  3 , 3X  ,  I  2  .  1 X . 1 3 , 3X .  I  1  .  I  2  ) 

100  IF  (N(l).EQ.AS)  GO  TO  50 

110  K  =  I  1  *  1 00000+ I  2* 1 000+ I  3 

120  1=1+1 

130  IF  (I.GT.5010)  GO  TO  50 

1  AO  I  I (  I  )  =K 

150  L  R (  I  )  =  I  4 

160  LA( I  )  =  I  5 

170  DO  8  M=1  ,5 

IPO  8  NN< I .M)sN(M) 


The  equivalence  group  for  the  node  is  determined.  Either  it  is  equivalent  to 
a  previous  node,  or  its  descriptors  form  the  basis  of  a  new  group. 


PROGRAM  NKT2  (coni  intiod) 


1  90 

IF  <I-1>  10.10,20 

2  TO 

1  0 

IG<  1  )  =  1 

2  1  0 

L  G  =  1 

220 

GO  TO  1 

2  30 

20 

KFND= I - 1 

24  0 

no  28  M=1  ,kEND 

2  =  0 

IF  (  1  I  ( M  )  -K  )  28.24,28 

260 

24 

IF  ( L A ( M  )  .EO  .L A (  I  )  .  AND  .LR ( M ) • E 0 . LR (  I  )  >  00  TO  30 

270 

28 

CONT I NUE 

2  =  0 

LG=LG+ 1 

290 

IG (  I  )  =LG 

300 

GO  TO  1 

310 

30 

I  G  <  I  >  »  I  G  (  M  ) 

320 

GO  TO  1 

The  input  file  has  been  read;  the  number  of  records  and  groups  are  printed. 


3  TO  50  NR=I 

340  PRINT  101, NR, LG 

3^0  101  F0(?«ATC  INPUT  COMPLETE  "  ,  I  5  ,  "  RECORDS  "  ,  I  5  ,  »  GROUPS") 


For  each  tree  type;  E,M,P,S,  and  T 


360  DO  60  1=1.5 

370  WRITE  (9,102)  KON(I) 

380  102  F0RMAT(  1H1  ,  EQUIVALENT  NODES  FOR  "  .  A  1  ,  »  TRFS"/) 

390  do  re  J= 1  . NR 

400  DO  52  I J= 1 ,3 

410  IF  (NN(J.IJ).NE.BL)  GO  TD  53 

420  52  CONTINUE 

430  GO  TO  58 

440  53  IF  <NN< J, I J).NE.KON( 1 ) >  GO  TO  58 

450  LGX=IG(J> 


Print  each  node  belonging  to  it  ••• 


460  WR I TE  <  9 ,  1 03  )  ( NN < J , K A )  , K A = 1 . 5  )  .  I  I  ( J  )  . L R ( J ) , L A ( J ) 

470  103  FORMAT ( 1 H  , 4 HNODE , 1 X , 3 A  1 , 2 A  4 , 4 X . 1 6HF OU I  V AL E N T  NODES 

480  *3X . I  10. 2 ( IX , I  3  )  ) 


...and  each  member  in  its  equivalence  group. 


PKOCKAM  NKT2  (continued) 


490  00  56  JJ=  1  .  NR 

500  IF  <  I  G  <  J  J  )  •  NE  .  L  GX  )  GO  TO  56 

510  IF  (J-JJ)  54,56.54 

5  2  0  54  WRITE  (9.104)  < NN < J J  .  K A  )  ,  K A = 1  , 5 >  ,  I  I  ( J J )  ,  L R ( J J  )  .  L A <  J J  ) 

530  104  FORMAT < 24X , 3A 1  ,  2 A4 , 5X  .  II  0 . 2 C  1  X  ,  I  3  )  ) 

540  56  CONTINUE 

560  50  CONTINUE 

560  WRITE(9,105)  KON(I) 

570  106  FORMAT < 2X , "END  OF  EQUIVALENT  NODES  FOR  .  A  1  ,  TREE"/) 

5  P  0  60  CONTINUE 


610  STOP 

620  END 


Appendix  III:  Annotated  Program  Listing  for  NET3 


I 

j 


PROGRAM  NKT3 


Purpose:  To  select  and  print  nodes  from  the  Node  Information  File  (NIF). 


MAIN  CONTROL  PROGRAM 

Purpose:  To  identify  user  requests  and  to  read  the  file  and  print  selected 
nodes. 


10  DIMENSION  IWORD! 5  )  ,  IN( 5  )  ,N< 3  )  .BUFFER ( 380  ) 

20  < i KN ( 5  )  «NS(3) 

30  INTEGER  BL.ALL 

40  DATA  8L .NO.  10.  IH, ALL/1H  , 1 HN ,  1  HO ,  1 HH ,  1  HA/ 

50  DATA  IW0RD/3HATR . 3HACT • 3HT  AR . 3HREG . 3H  SUB / 


The  input  file,  NIF  is  attached .  Statement  100  is  the  format  by  which  the 
file  will  be  read. 


65  CALL  ATTACH!  01  ."AWC1SS/CACI/NIF  {•'.  1 , 0,  ISTAT  .BUFFER) 

80  100  FORMAT! 3A4 , I3.3X, 12. IX. I  3. 3X, II .  12  ) 

190  101  FORMAT! IX, 14HN0.  RECORDS  =  .16) 


The  next  section  solicits  and  reads  the  user's  instructions.  His  selection 
options  are  stored  in  IWORD:  he  may  select  nodes  with  a  specific  actor, 
action,  target,  region,  or  substantive  area.  As  each  option  is  presented,  he 
enters  either  a  specific  code  or  the  word  ALL,  indicating  that  he  does  not 
wish  to  select  nodes  by  this  variable.  A  request  for  help  at  the  beginning 
will  result  in  printing  his  options  (see  format  statement  105,  line  310). 
Entering  the  word  HELP  in  response  to  requests  for  codes  will  cause  the 
program  to  print  the  name  of  the  variable  for  which  a  code  is  requested.  The 
word  OUT  entered  at  any  point  will  cause  the  HELP  option  to  be  deactivated. 


200  1R  PRINT  102 

210  102  FORMAT ! 1 X . 1 1HWANT  HELP  ) 

220  20  READ  103. INS 

230  103  F0RMAT(3A1 ) 

240  IF  IINS.EO.NO)  GO  TO  22 

250  IF  (INS.NE.BL)  GO  TO  21 

260  PRINT  104 

270  104  FORMAT! IX. 69HMISSED  YOUR  ANSWER.  PLEASE  RE-ENTER  IT,  ST 

280  AHE  FIRST  COLUMN.  )  |ARTING  InT 

290  GO  TO  20 


PROGRAM  NET3  (con tinned) 


300 

21  PRINT  105 

Nol 

310 

105  FORMAT  <  70H  YOU  MAY  SELECT  NODES 

BY  ONE  OR  MORE 

OF  THE  EOi'.nw 

3?0 

ADF  ATTRIBUTES*.  /  1  1  H  ACTOR(ATR) 

/9H  ACT(ACT) 

/ 

1  ?H  TARGET  (Ta 

330 

A22H  SUBSTANTIVE  ARE  A ( SUB }  /  1  2h 

RE  G I  ON ( REG  ) 

/ 

I  NG  NO 

340 

S43H  EACH  ATTRIBUTE  WILL  BE  CONSIDERED  IN  TURN 

/  R  )  / 

350 

A  32H  ENTER  A  SPECIFIC  CODE  OR  ‘ALL'  / 

35  0 

A"  ENTER  CODES  AS  3-D  I G 1 T  INTEGFRS;  I.E.  ACTOR 

»  2 '  AS  •  00? ' / 

370 

&  REGION  *3'  AS  '  00  3  •  '•/ 

372 

A"  TO  REQUEST  HELP  AT  ANY  STAGE. 

ENTER  •HELP'" 

/ 

300 

S28H  TO  CANCEL  HELP.  ENTER  'OUT* 

) 

390 

22  DO  40  J= 1 . 5 

400 

IF  (INS.E0.N0)  GO  TO  25 

4  1  0 

24  PRINT  106.1  WORD ( J  1 

420 

106  F0RMATCI2H  SELECT  ONE  .A3) 

4  30 

25  READ  103. NS 

440 

IF  (N$< l > .EG. ALL >  GO  TO  30 

450 

IF  (NS(l).EQ.  10)  GO  TO  28 

450 

IF  (NSUl.EQ.  IH)  GO  TO  27 

470 

26  CALL  CONV(NS.KI) 

4  °0 

IF  (KI.E0.9999)  GO  TO  24 

490 

IN( J)=KI 

500 

GO  TO  40 

510 

27  INS=BL 

520 

GO  TO  24 

530 

28  I N  S  =  N0 

540 

GO  TO  25 

5*0 

30  IN  <  J ) =-  1 

560 

40  CONTINUE 

The  user-selected  codes  are  stored  in  the  array,  IN.  When  the  user  input 
is  complete,  this  array  is  printed  as  a  check.  A  value  of  -1  for  any 
word  in  this  array  indicates  that  the  corresponding  variable  will  not  be  used 
in  selecting  nodes  to  be  printed  (for  example,  all  values  of  this  variable  will 
be  accepted). 

570  PRINT  200  *  I N 

5*0  200  FORMAT 1514) 

The  counter,  ITOT,  is  set  to  0  and  the  input  file  is  rewound.  As  each  file 
record  is  read,  it  is  compared  with  the  set  of  selection  codes  in  IN;  all 
matches  are  printed. 


ITOTsO 
REWIND  I 

l  RE  AO (  i * 100*END*50>  N.KN 


500 

600 

605 


PROGRAM  NET3  (continued) 


610 

DO  48  J= 1  «  5 

670 

IF  <  I  N  <  J  )  )  48.42  .42 

630 

47 

IF  ( K  N ( J ) .NE. INI J)  )  GO 

640 

4  8 

CONTINUE 

650 

1T0T=IT0T*1 

660 

PRINT  100.N.KN 

670 

GO  TO  1 

When  the  reading  of  the  file  is  finished,  the  number  of  matches  is  printed 
and  the  user  is  given  a  chance  to  make  another  search  through  the  file.  If 
his  answer  is  NO,  the  input  file  is  detached  and  program  execution  is 
terminated. 


600  50  PRINT  I  08  «  I  TOT 

700  10B  FORMAT ( /I6 , 1 X , 7HMATCHES//  21H  ADDITIONAL  SEARCHES  ) 

710  READ  103. INS 

720  IF  (INS.NE.NO)  CO  TO  18 

725  CALL  DETACHI01 . ISTAT .BUFFER) 

730  STOP 

740  END 


PROGRAM  NET  3 


SUBROUTINE  CONV(N,KI) 

Purpose-:  To  convert  the  3-character  alpha  variable,  N,  into  a  3-digit 
integer,  Kl. 


SUBROUTINE  C0NV«N,KI) 

DIMENS  ION  NUM(  10 )  .N ( 3)  ,L( 3 ) 

DATA  NUM/1H1 . 1H2 , 1H3 . 1H4 . 1H5 t lH6t 1H7 , 1H8 . 1  HR, 1H0/ 
DATA  L/100.10,1/ 


Each  character  in  N  is  compared  with  the  list  of  integers  in  array  NUM 
to  find  a  match.  If  there  is  an  error,  a  message  is  printed. 


Control  is  transferred  back  to  the  MAIN  CONTROL  PROGRAM 


99  RETURN 


E 


PROGRAM  NLT4 

Purpose:  To  modify  and  update  the  Tree  Summary  File  (TSF) ;  to  retrieve 
information  from  the  file  for  specific  trees. 


MAIN  PROGRAM 

Purpose:  To  read  the  TSF  and  to  execute  user  instructions. 


10  DIMENSION  I  I < 29 ) , JCODE < 7 > 

20  DIMENSION  IX ( 60.29 > . I S < 7 ) ,KS ( 7 > .PUFFER ( 380 ) 

22  DATA  I S/3HHEL , 3HALL  »  3HM0D , 3H  ADD • 3HD I S . 3HEND  »  3HST0/ 

30  DATA  KS/3HAUT . 3HDTC . 3HDTM , 3HACT , 3HSU3 , 3HREG . 3HTRE/ 

40  DATA  N0.LANK/2HN0.4H  / 

50  DATA  NC.NS.NN.NV/7t7.60.29/ 


The  TSF  is  located  and  read.  (It  is  stored  in  the  AWC  system  under  the 
name  DNET4.) 


55  CALL  ATTaCH(01  ."AWC1SS/CACI  /DNET  4}'* «  1 .0.  ISTAT  .BUFFER) 

60  NUM  =  0 

70  1=0 

80  1  1=1+1 

90  IF  (I.GT.NN)  GO  TO  4 

100  READ( 1 .100,END  =  4)  < I  X < I , J ) . J= 1 » NV ) 

110  100  FORMAT  (  2A4  .  IX.  A4 , 1  X.2U6.  IX  >  ,  13,  IX.  A3.2  C  IX,  A2  )/20A4  ) 

120  IF  ( IX< I . 1 ) .NE.LANK  )  GO  TO  1 

130  4  NR  = I - 1 

140  PRINT  102, NR 

150  102  FORMAT ( 1 6H  INPUT  COMPLETE  .I4.14H  RECORDS  READ  > 


The  user's  option  is  read  and  control  transferred  to  the  appropriate  pro¬ 
gram  instruction. 


160  6  PRINT  104 

170  104  FORMAT ( 1 3H  ENTER  OPTION  ) 

180  READ  105. INS 

190  105  FORMAT  <  A3 ) 

200  DO  8  1=1, NC 

210  IF  (  INS.EQ.  IS( I )  )  GO  TO  9 

220  8  CONTINUE 

230  GO  TO  10 

240  9  GO  TO  < 10,20.30,40,50,60.70) , I 


PROCRAM  NET4  (continued) 


The  user  has  requested  help;  the  program  options  are  printed. 


250 

10  PRINT  106 

260 

106  FORMAT ( 38H 

THE  FOLLOWING 

OPTIONS  ARE  AVAILABLE: 

270 

A  34  H 

HELP  - 

TO  PRINT  USER 

INSTRUCTIONS  / 

260 

A2BH 

ALL  - 

TO  PRINT  ENTIRE 

FILE  / 

290 

A33H 

MOD  - 

TO  MODIFY  LAST 

CHANGE  DATE  / 

300 

A29H 

ADD  - 

TO  ADD  ENTRIES 

TO  FILE  / 

310 

A  4  OH 

DIS  - 

TO  DISPLAY  SELECTED  FILE  ENTRIES  / 

320 

A33H 

STOP  - 

TO  STOP  PROGRAM  EXECUTION  > 

330 

GO 

TO  6 

The  user  has  requested  that  the  entire  file  be  printed. 


340  20  DO  22  J=1.NR 

350  22  PRINT  100. < IX ( J.K > ,K=1 .NV > 

360  108  FORMAT  < 13. 1X.A4. 1X.2A4. 1 X . 2 ( 16. IX) • 13. 1X.A3.2I 1X.A2 )/20A4 ) 

370  60  TO  6 


The  last  modification  date  of  a  specific  tree  is  to  be  updated;  The  user 
indicates  the  tree  name  and  the  new  date. 


380 
390 
400 
402 
404 
406 
4  10 
420 
430 
440 
450 
460 
470 
480 
490 
500 


The  user's  instructions  are  rechecked.  Upon  his  OK,  the  new  date  is  written 
into  the  file. 


510  PRINT  1 18. IX ( J.4 ) . IDT 


30  PRINT  HO 

110  FORMAT ( 1 2H  TREE  NAME  ) 

READ  100.IA.IB 
IF  UA.NE.ISU1)  60  TO  31 

PRINT. "TREE  NAMES  CONSIST  OF  7  CHARACTERS  1  FOR  EXAMPLE:  T010101 
GO  TO  6 

31  DO  32  J=1»NR 

IF  (IA.E0.lX(J.l).AN0.I8.EQ.IX(J.2n  GO  TO  34 

32  CONTINUE 
PRINT  114.IA.IB 

114  FORMAT  < 1  OH  ERROR  IN  ,2A4> 

GO  TO  30 

34  PRINT  115 

115  FORMAT ( 22H  DATE  OF  LAST  CHANGE  > 

READ  U6.I0T 

116  FORMAT! 16) 


II 


_ (  ..Jit 


PROGRAM  NET4  (continued) 


ACT-  to  select  entries  by  actor 
AUT-  to  select  entries  by  author 

DFC-  to  select  file  entries  by  file  creation  date 
DFM-  to  select  entries  by  the  date  of  last  modification 
SUB-  to  select  entries  by  substantive  area 
REG-  to  select  entries  by  region 


800 

50 

DO 

51  K=1.NS 

810 

51 

JCODE ( K  )  =L ANK 

820 

52 

PRINT  130 

830 

130 

FORMAT  <  23H  ENTER 

select 

I  ON 

840 

READ  1 05 • I  NS 

850 

IF 

(INS.EQ.NO)  GO 

TO 

57 

860 

IF 

(  INS.EO. IS( 1  )  ) 

GO 

TO 

59 

870 

IF 

(  INS.EQ, IS( 6 ) ) 

GO 

TO 

6 

880 

IF 

(  INS.EQ. I S  <  7 ) > 

GO 

TO 

70 

890 

00 

53  jsl.NS 

900 

IF 

(  INS.EQ.KS(J)  ) 

GO 

TO 

54 

910 

53 

CONTINUE 

920 

PRINT  114, InS 

930 

GO 

TO  59 

940 

54 

IF 

(J.NE.NS)  GO 

TO 

55 

The  user  wishes  to  print  information  on  a  specific  tree.  He  is  asked  to 
enter  the  name  of  the  tree.  If  the  tree  is  in  the  file,  the  entry  is  printed. 


950 

PRINT  HO 

960 

READ  100,IA,IB 

970 

DO  502  J=1,NR 

980 

IF  ( I A.nE. IX( J.  1  )  ) 

GO 

TO 

502 

990 

IF  ( I8.NE.IXC J.2)  ) 

GO 

TO 

502 

1000 

PRINT  100, ( I  X  (  J  ,  K  ) 

,K  = 

1  . 

NV  ) 

1010 

GO  TO  50 

1020 

502  CONTINUE 

1030 

PRINT  114,IA,I8 

1040 

GO  TO  52 

The  user  has  indicated  one  of  the  specific  entry  attributes:  author,  date,  actor, 
substantive  area,  or  region.  Program  control  is  transferred  to  the  proper 
instruction  to  read  the  specific  code  for  the  attribute  selected.  The  code 
entered  by  the  user  is  stored  in  the  selection  code  array, 
may  end  this  section  by  entering  the  word  NO. 

1050  55  60  TO  < 5 1 0 , 520 , 520 . 540 , 550 , 560  )  . J 


PROGRAM  NET4  (continued) 


530 

PRINT  120 

540 

120 

FORMAT  <  5H  OK  1 

550 

READ  122. INS 

560 

122 

FORMAT ( A2 ) 

570 

IF  (INS.EQ.N01 

580 

IX( J.4 1 = I DT 

590 

NUM=NUM+ 1 

600 

60  TO  6 

The  user  wishes  to  add  an  entry  to  the  file.  If  the  file  is  full,  he  is 
instructed  to  increase  the  array  dimensions  before  adding  new  entries.  After 
his  new  entry  has  been  typed,  he  is  given  the  opportunity  of  checking  it 
against  the  last  entry  in  the  old  file.  If  he  is  satisfied  that  the  lines  are 


correct,  they  are  added  to  the  file. 

610 

40 

IF  (NR-NN)  41.48,48 

620 

41 

PRINT  124 

630 

124 

FORMAT ( 1 5H  ENTER  NEW 

640 

REAO  100. II 

650 

PRINT  126 

660 

126 

F0RMAT<20H  last  TWO  l 

670 

PRINT  100. (  IX<NR,K 1 ,K 

680 

PRINT  100. II 

690 

PRINT  120 

700 

READ  122. INS 

710 

IF  t  INS. EG. NO)  60  TO 

720 

NR=NR+1 

730 

DO  42  J=1.NV 

740 

42 

IX(NR. J)=I I ( J) 

750 

NUM=NUM+ l 

760 

60  TO  40 

770 

48 

PRINT  128 

780 

128 

FORMAT  <  40H  FILE  FULL. 

790 

60  TO  6 

LINE  > 


ARES  ) 


40 


DIMENSIONS  MUST  BE  INCREASED  ) 


The  user  wishes  to  display  selected  portions  of  the  file.  He  is  instructed  to 

enter  his  selection  option.  His  choices  at  this  point  are: 

NO-  to  indicate  that  he  has  completed  the  selection  code  array 
and  wishes  the  matching  entries  to  be  printed, 

HELP-  to  print  the  list  of  options 

STOP-  to  terminate  program  execution 

TREE-  to  print  the  entry  for  a  specific  tree 


PROGRAM  NET 4  (conitnued) 


1060 

510 

PRINT  134 

1070 

134 

FORMAT { 1 3H  ENTER 

AUTHOR 

) 

1080 

READ  1 12. JCODE ( 1 ) 

1085 

1  1  2 

FORMAT ( A  4 ) 

1090 

GO  TO  52 

1  1  00 

520 

PRINT  136 

1110 

1  36 

FORMAT ( 20H  ENTER 

EARLIEST  DATE  ) 

1  120 

READ  1  1  6  *  JCODE {  J  ) 

1  1  30 

GO  TO  52 

1  140 

54.0 

PRINT  137 

1  150 

137 

FORMAT { 1 2H  ENTER 

ACTOR 

) 

1  160 

READ 

1 05 . JCODE ( 4  ) 

1  162 

GO  TO 

52 

1  1  70 

550 

PRINT  138 

1  180 

138 

FORMAT ( 23H  ENTER 

SUBSTANTIVE  AREA 

1  190 

READ 

122. JCODEISJ 

1  192 

GO  TO 

52 

1200 

560 

PRINT  140 

1210 

140 

FORMAT  <  13H  ENTER 

REGION 

> 

1220 

READ 

122, JC0DE<6) 

1230 

GO  TO  52 

All  selection  options  have  been  read.  The  file  is  searched  and  all  entries 
matching  the  selected  codes  are  printed. 


1240 

57 

I  T  0  T  =  0 

1250 

DO 

574  J=l,NR 

1260 

IF 

( JC0DE<  1  )  .  E  0 

.LANK)  GO 

TO 

571 

1264 

IF 

CIX< J,3>  .NE. 

JCOOE ( 1 ) ) 

GO 

TO 

574 

1266 

571 

IF 

( JCODE ( 2 ) .EQ 

.LANK)  GO 

TO 

572 

1270 

IF 

(  IX( J.41.LT. 

JCODE  <  2 ) ) 

GO 

TO 

574 

1272 

572 

IF 

( JCODE ( 3  > .EO 

.LANK)  GO 

TO 

575 

1274 

IF 

(  I  X ( J , 5 ) »LT . 

JCODE ( 3  )  ) 

GO 

TO 

574 

1276 

575 

IF 

( JCODE ( 4 ) .EO 

.LANK)  GO 

TO 

576 

1278 

IF 

< I X ( J , 7 ) • NE • 

JCODE ( 4  )  > 

GO 

TO 

574 

1280 

576 

IF 

( JCODE (  5  )  .  E  0 

.LANK)  GO 

TO 

577 

1282 

IF 

< I X ( J,8 ) .NE. 

JCODE ( 5 ) ) 

GO 

TO 

574 

1286 

577 

IF 

( JC00E(6 ) .EO 

.LANK)  GO 

TO 

578 

1288 

IF 

(  I  X ( J,9>  .NE. 

JCOOE ( 6 ) ) 

GO 

TO 

574 

1290 

578 

I T OT  =  I  TOT ♦ 1 

1300 

PRINT  lOO.lIXlJ 

,L ) »L= 1 »NV  ) 

1310 

574 

CONTINUE 

1320 

PRINT  142,  ITOT 

1330 

142 

FORMAT ( IX, I3.8H 

MATCHES 

) 

1340 

GO 

TO  50 

PROGRAM  NET 4  (conitmied) 


The  user  has  requested  help;  the  selection  options  are  printed. 


1350  59  PRINT  144 

1360  144  FOBMATC  SELECTION  OPTIONS  ARE:*'  /  ••  TREE  -  TREE  NAME  "  / 

1370  S15H  AUTH  -  AUTHOR  /  20H  DTC  -  DATE  CREATED  / 

1380  A"  DTM  -  DATE  MODIFIED"  /  "A  ACT  -  ACTOR"  / 

1390  «15H  SUB  -  SUB-AREA  /  1 3H  REG  -  REGION  / 

1400  A28H  END  -  TO  END  CURRENT  OPTION  ) 

1410  GO  TO  50 


The  user  has  entered  the  instruction  to  END.  To  avoid  confusion  over  whether 
he  meant  to  end  the  current  option  or  to  end  the  program,  he  is  given  an 
opportunity  to  recheck  his  instruction.  Upon  his  OK,  program  control  is 
transferred  to  the  ending  sequence. 


1420 

60  PRINT  146 

1430 

1  46  FORMAT (  10H  END 

NOW  1 

1  440 

READ  1CS.INS 

1450 

IF  (INS.NE.NO) 

GO  TO  6 

If  the 

file  has  been  modified. 

the  user  is  asked  to  indicate  whether  or  not 

he  wishes  the  modified  file  to 

be  saved. 

1460 

70 

IF  (NUM)  80,80.72 

1470 

72 

PRINT  148, NUM 

1480 

148 

FORMAT!  13. 38H  MOD  I F  I  C A T I ON ( S ) .  SAVE  MODIFIED  FILE 

1490 

READ  105. INS 

1500 

IF  (  I  NS • E  0 . NO  )  GO  TO  80 

1510 

REWIND  1 

1518 

DO  78  1=1, NR 

1520 

WR  ITEM  •  1  00  >  <  IX(  I  ,  J>  ,  J=1  ,NV) 

1522 

78 

CONTINUE 

1530 

PRINT  150 

1540 

150 

FORMAT ( 11 H  FILE  SAVED  ) 

The  input  file  is  released  and  program  execution  is  terminated. 


1550  80  CALL  DETACH < 0 1 , I STAT . BUFFER  ) 

1560  STOP 

1570  END 


CL  1ST  AWC 1 SS/CAC I  PRIOR  STATUS  ON  PG 
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